задачка

[dacar_goody]

Добрые люди, помогите с задачкой:
Составьте блок схему и напишите программу для решения следующей задачи: найти объем V и площадь полной поверхности S прямого кругового цилиндра, если радиус R = 12,46 и высота Н = 39,71, используя формулы: V = (п(пи))R^2H; S=2(п(пи))R(R+H).

[yaschenko]

 
const pi=3.14;
var R,H,V,S:Double;
begin
    Write('R=');Readln(r);
    Write('H=');Readln(h);
    v:=pi*Sqr(R)*h;
    S:=2*pi*R*(R+H);
    Writeln('V= ',V);
    Writeln('S= ',S);
    Readln;
end.