Задачи по Паскалю

[koshkarjov]

1) Чему равен объем цилиндра, если известна его высота и радиус основания.

Я вот тут попробовал сделать, но мне кажется не до конца получилось...

Program xxx;
var a,b,c:integer;
begin
readln(a);
readln(b);
c:=(a*b);
writeln(a,'_',b,'_',c);
end.

2) Даны значения a,b. Вычислить значение p= 1/a/1/b

[Викдон]

1)

var r,h:integer;
    V:real;
begin
 write('Vvedite radius: ');
 readln(r);
 write('Vvedite visoty: ');
 readln(h);
 V:=pi*Sqr(R)*H;
 writeln('V= ',V:3:1);
 readln;
end.

2)

var a,b:integer;
    result:real;

begin
 write('Vvedite a: ');
 readln(a);
 write('Vvedite b: ');
 readln(b);
 result:=(1/a)/(1/b);  {P=b/a}
 write('Itog =',result);
 readln;
end.

[koshkarjov]

Большое спасибо!