Задание - составить программу в pascal
вводишь два числа а и б. при чем а < б. надо вывести квадраты всех чисел между а и б

var a,b:integer;beginwrite('Введите a ');readln(a);write('Введите b ');readln(b);inc(a);while a<>b do beginwriteln(a*a);inc(a);endend.