программы с циклом ПОКА и ДО (Тема 8) (3)

Program S_krugov;
const pi: real = 3.14158;
var r:integer;
begin
  Writeln('Эта программа вычисляет площадь кругов 5,10,15..45');
  r:=5;
  writeln('Радиус ':10,'|':4, 'Площадь круга ':15);
  repeat
    writeln(r:10,'|':4, (pi*r*r):10);
    r:=r+5;
  until r>45;

end.