Найти площадь боковой поверхности цилиндра, известно радиус и высота. (примерное...

Program primer;
Uses crt;

var r,h,s: real;

Begin clrscr;
      write('Введите радиус r = ');
      readln(r);
      write('Введите высоту h = ');
      readln(h);
      writeln;

      if (r<=0) or (h<=0) then<br>      write('Значения не могут быть отрицательными или равняться нулю')
      else
      begin
      s:=h*(2*pi*r);
      write('Площадь боковой поверхности цилиндра s = ', s:0:3);
      end;
      readln;

End.