Программа 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.