С клавиатуры введится целое число x. Если оно кратное 5, то вывести ** экран квадрат...

Question

С клавиатуры введится целое число x. Если оно кратное 5, то вывести на экран квадрат этого числа, иначе- его куб

Answer 1

Программа написана на языке Pascal

var
  x: integer;
begin
  readln(x);
  if x mod 5 = 0 then
    writeln(x * x)
  else
    writeln(x * x * x)
end.