{Составить таблицу значений ф-ции у=5-х^2 на отрезке [ a;b] с шагом 1. ( Задачу решиться использую цикл с параметром).
Описание переменных: 
х- значение аргумента
у- значение функции
а- начало отрезка
b- конец отрезка.
Алгоритм решения задачи:
1. Запросить значение начала и конца отрезка.
2. Для числа х от а до b выполнять действия:
вычислять значение у по формуле,
Вывести на экран значение х и у.}
uses crt;
var x,y,a,b:integer;
begin
clrscr;
write('Введите начало отрезка:');
readln(a);
write('Введите конец отрезка:');
readln(b);
writeln(' * X     *  Y  *');
for x:=a to b do
 begin
   y:=5-x*x;
   writeln(' *  ',x,'  *',y,'  *');  
 end;
end.