Нужно составить программу на паскале авс вот по этой задаче Запросить сторону…

Это б) uses crt; var S,b,h: real; beginwriteln ('Введите b,h'; readln (b,h); S: =1/2*b*h; writeln ('S=',S); readln; end. А) uses crt; var a,b,c,P: integer; beginwriteln ('Введите a,b,c'; readln (a,b,c); P: =a+b+c; writeln ('P=',P); readln; end. В) uses crt; var a,b,c,S,R1,R: real; beginwriteln ('Введите a,b,c,S'; readln (a,b,c,S); R1: =a*b*c; R: =R1/4*s; writeln ('R-',R); readln; end.