Вычислить площадь боковой поверхности (S=πrl) и обьем

Program zadacha; const pi=3,14; uses crt; var S,r,l,V,h: real; BEGINclrscr; write ('Vvedite visoty: '); readln (h); write ('Vvedite radius: '); readln (r); write ('Vvedite obrazujuschujy: '); readln (l); S: =pi*r*l; V: =pi*r*2*h/3; writeln ('Ploschad ravna=', S: 3:2); writeln ('Objem raven=', V: 3:2); readln; end.