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

1) var s,r:integer;
begin
read(r);
s:=3.14*r;
write(s);
end.

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