Question

Дано число, если оно кратко 5, то найти площадь круга с радиусом равным этому числу, если число четное, то найти площадь квадрата с этим числом (паскаль 8 кл)

Answer 1

program n_5;

var
  a: integer;

begin
  write('Введите а - ');readln(a);
  if (a mod 5 = 0) then
    write('Площадь круга с радиусом ', a, ' = ', 2 * 3.14159265 * a)
  else
  if (a mod 2 = 0) then
    write('Площадь квадрата со стороной ', a, ' = ', sqr(a))
  else
    write('ERROR');
end.