1. Составьте программу вычисления площади круга 2. Составить программу вычисления…

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.