program SquaresAndCubes;
vara, b, i: integer;
beginwrite('Enter the value of a: ');readln(a);write('Enter the value of b: ');readln(b);
writeln('Squares and Cubes of integers from ', a, ' to ', b, ':');
for i := a to b dobeginwriteln('Number: ', i);writeln('Square: ', i i);writeln('Cube: ', i i * i);writeln;end;end.
program SquaresAndCubes;
var
a, b, i: integer;
begin
write('Enter the value of a: ');
readln(a);
write('Enter the value of b: ');
readln(b);
writeln('Squares and Cubes of integers from ', a, ' to ', b, ':');
for i := a to b do
begin
writeln('Number: ', i);
writeln('Square: ', i i);
writeln('Cube: ', i i * i);
writeln;
end;
end.