Question

По схеме составить программу в паскаль.

Answer 1

Var n : Integer;
Begin
  Writeln('Введите число');
  Readln(n);
  if n mod 2 = 0 then n:=sqr(n) else n:=sqr(n)*n;
  Writeln('Chislo =',n);
  Readln; { пауза для просмотра результата до нажатия "Enter"}
end.