Program Prog1;var a, b : integer;beginwrite('Введитечисло'); readln(a)

Program Prog1;var a, b : integer;beginwrite('Введитечисло'); readln(a);b:=a*a; writeln('Квадратэтогочисла= ',b);end.• Модифицировать программу так, чтобы она: 1) вычисляла куб числа 2) вводила не одно, а два числа, и вычисляла сумму их квадратовЗапишите в ответе тексты получившихся программ.***памяткаТермины: var –начало секции описания переменных a, b,Prog1 –идентификаторы (имена) различных объектовa, b –переменные целочисленного (integer) типаinteger –целочисленный типwrite, writeln –операторы выводаreadln –оператор ввода b:=a+1 –оператор присваивания (переменной b присваивается значение выражения a+1) begin ... end –операторные скобки