Помогите плс написать команды в паскале. Сделать надо номер 2 и 3

Ответ:

Объяснение:

2)

program uravn;

var x,y:real;

begin

writeln('Введите х');

readln(x);

y:=x+2.5;

y:=y*x;

y:=y-1;

y:=y*x;

y:=y+1;

writeln('y=',y:4:2);

readln;

end.          

3)

program rasst;

var

d,xa,ya,xb,yb:real;

begin

writeln('Введите координаты точек А(xa,ya), В(xb,yb)');

write('xa=');

readln(xa);

write('ya=');

readln(ya);

write('xb=');

readln(xb);

write('yb=');

readln(yb);

d:=sqrt(sqr(xb-xa)+sqr(ya-yb));

writeln('|AB|=',d:4:2);

readln;

end.