Объяснение:
var a,b : LongInt;
begin
a := 4; b:= 5;
writeln(a,' * ', a, ' = ', a*a);
writeln(b,' * ', b, ' = ', b*b);
end.
Объяснение:
var a,b : LongInt;
begin
a := 4; b:= 5;
writeln(a,' * ', a, ' = ', a*a);
writeln(b,' * ', b, ' = ', b*b);
end.