Составить программу. Задача 1 Найти площадь полной поверхности цылиндра с…

Задача 1.program abc; uses crt; var h,r,S: real; beginwriteln ('Vvedite h'); readln (h); writeln ('Vvedite r'); readln (r); S: =2*pi*r*h; writeln (S); end. Задача 2.program abc; uses crt; var a,b,P: real; beginwriteln ('Vvedite perimetr'); readln (P); writeln ('Vvedite storonu'); readln (a); b: =P- (2*a+5); writeln ('3ya storona=',b); end.