Помогите пожалуйста .Срочно. Программа Turbo Pascal.11 класс.
1.Вычислить площадь круга.
2.Объём цилиндра.

1) var s,r:integer;beginread(r);s:=3.14*r;write(s);end.2) var s,r,h,v:integer;beginread(r);s:=3.14*r;read(h);v:=s*h;write(v);end.