Найти ошибку пишет : неверно сконструированное форматное выражение там, где х=х+0,2. посчитать функцию на интервале от 0,1 до 1,3 с шагом 0,2

program abc2;

var x, y: real;

begin

x: =0.1;

repeat

if (sqr(x)-1.8*x+1.2)=0 then

writeln('x=',x,'нельзя вычислить функцию')

else

y: =(364*sqr(x)*exp(-7.5*x))/(sqr(x)-1 .8*x+1.2);

if y> 1 then

writeln('y=',y: 8: 3);

x: =x+0.2:

until x> 1.3;

end.

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.

00-ff - стандартная кодировка оттенков серого