{* Задача 479 *}

Unit ZADACH479;
Interface
Implementation
Begin
 writeln('Составить программу для вычисления площади листовой за - готовки в виде круга , если ее радиус изменяется от 50 до 70 мм с ша - гом 5 мм. При реализации цикла использовать комбинацию операторов IF и GOTO.');
End.

Program zadach479;

Uses zadach479.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключение модулей *}
LABEL 1;
Var {* В работе нам потребуются переменные: *}
  S : REAL;
  R : REAL;
Begin
  CLRSCR; {* Очистка экрана *}
  R := 50;
  1 : S := PI * SQR(R);
  WRITELN (‘S = ’, S : 4:2,’  ПРИ R = ’, R : 4:2);
  R := R + 5;
  If (R
    = 70) Then
  Goto 1;
  READKEY
End.