Остатки Даны целые неотрицательные числа a, b, c, d, при этом 0≤c
В этой задаче нельзя использовать инструкцию if, операторы сравнения (< и т.д.), должен быть только один цикл.

Входные данные

На вход подаются четыре строки, в каждой из которых написано по одному неотрицательному целому числу — a, b, c, d. Все числа не превосходят 2∗109, 0≤c
Выходные данные

Выведите ответ на задачу.

Примеры
Ввод
2
5
0
2
2
5
0
2
Вывод
2 4
5

Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.

Алгоритм
1) a x a = a² ⇒ b;    b x a = a³ ⇒ результат
2) a x a = a² ⇒ b;    b x b = a⁴ ⇒ c;   c x c = a⁸ ⇒ c;   c x b = a¹⁰ ⇒ результат

Программа на языке PascalABC.Net
var
  a,b,c,y:real;
begin
  Write('Введите число: '); Read(a);
  b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
  c:=b*b; c:=c*c; y:=b*c;
  Writeln('Десятая степень числа равна ',y)
end.

Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024

Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574