81
100
Объяснение:
Программа получает на вход 2 целых числа:
ReadLn (a); ReadLn (b)
Возводит их в квадрат (умножает число на себя):
а:=a*a; b:=b *b;
Выводит получившиеся значения на экран с новой строки:
WriteLn(a); WriteLn (b);
а = 9 а = 9 * 9 = 81
b = 10 b = 10 * 10 = 100
в программе пропущена часть объявления переменных, должно быть так Var a,b:integer;
81
100
Объяснение:
Программа получает на вход 2 целых числа:
ReadLn (a); ReadLn (b)
Возводит их в квадрат (умножает число на себя):
а:=a*a; b:=b *b;
Выводит получившиеся значения на экран с новой строки:
WriteLn(a); WriteLn (b);
а = 9 а = 9 * 9 = 81
b = 10 b = 10 * 10 = 100
в программе пропущена часть объявления переменных, должно быть так Var a,b:integer;