14. Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число от 50 до 70. Найти его квадрат, если оно кратно 2 и куб, если оно кратно 3.

Program n1;var: a: integer;beginrandomize;a:=random(70-50+1)+50;if(a mod 2=0) then do a:=a*a;if(a mod 3=0) then do a:=a*a*a;writeln(a);end.