Написать программы по информатике 8 класс. Язык Паскаль. ( )

1:

var x:integer;

y:real;

begin

write('Введите x: '); readln(x);

if x < 3 then write('y = ', (2. 5*x-4):0:2);

if x > 3 then write('y = ', 25*sqr(x)+2);

end.

2:

var a:integer;

begin

write('Введите a: '); readln(a);

write('s = ', (sqr(a)+3)/4:0:2);

end.