(35 ) доработать программу на pascal так, чтобы она выполняла вычисления 3 раза с разными исходными данными, используя оператор цикла for.
var x,f: real;
begin
write('введите значение x= ');
readln(x);
if x> 3 then f: =-3*x+9 else f: =sqr(x)*x/(sqr(x)+8);
writeln('f(',x: 5: 3,')= ', f: 5: 3);
end.
var x,F: real;
i: integer; //вводим переменную-счетчик для цикла for
begin
for i:=1 to 3 do // Цикл будет выполнен 3-1+1=3 раза
begin //начало цикла
Write('введите значение x= ');
readln(x);
if x>3 then F:=-3*x+9 else F:=sqr(x)*x/(sqr(x)+8);
Writeln('F(',x:5:3,')= ', F:5:3);
end; //конец цикла
end.