1.Составьте программу вычисления площади круга 2.Составить программу вычисления функции y=2x^2-1 Срочноооо!!

1) program Skrug;     uses crt;     var S,π,r:real;     begin     clrscr;     π:=3,14;     writeln('r='); read(r);     S:=π*r*r;     write('S=', S);     readln;     readln;     end. 2) program Y;     uses crt;     var y,x:real;     begin     clrscr;     writeln('x='); read(x);     y:=2*x*x-1;     write('y=', y);     readln;     readln;     end.