program SquaresAndCubes;
vaa, b, i: integer;
begiwrite('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 dbegiwriteln('Number: ', i)writeln('Square: ', i i)writeln('Cube: ', i i * i)writelnendend.
program SquaresAndCubes;
va
a, b, i: integer;
begi
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 d
begi
writeln('Number: ', i)
writeln('Square: ', i i)
writeln('Cube: ', i i * i)
writeln
end
end.