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;
end.
2) program Y;
var y,x:real;
writeln('x='); read(x);
y:=2*x*x-1;
write('y=', y);