Write a program (Procedure) that outputs squares of numbers from a to b (a, b are entered from the keyboard).

Problem program: Print the squares of numbers from a to b (a, b are entered from the keyboard).

var a, b, i, j: integer;
begin
writeln (‘Enter a range of numbers [a; b]’);
readln (a, b);
writeln (‘Numbers in the range from’, a, ‘to’, b, ‘:’);
for i: = a to b do
write (i, ”);
writeln;
writeln (‘Squares of numbers from’, a, ‘to’, b, ‘:’);
for i: = a to b do
begin
j: = sqr (i);
write (j, ”);
end;
writeln;
end.