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.