Ответ:
program z1;
var a,b,x: integer;
f:real;
begin
write ('a = ');
readln (a);
write ('b = ');
readln (b);
for x:=a to b do
begin
if x>2 then f:=x*x-3
else if x
else f:=abs(x-2);
writeln ('f(',x:2,') = ',f)
end
end.
Объяснение:
Смотри картинку
Это цикл для a < b c шагом 1.
Если цикл для a > b c шагом -1, то 9 строку (for x:=a to b do) заменяем на for x:=a downto b do.