Даны 2 целых числа aив написать программу выводящую на экран значения квадрата целых чисел от а до в включительно

Var A, B, S1, S2: integer;
Begin
A := StrToInt(Edit1. Text) ;
B := StrToInt(Edit2. Text) ;
S1 := sqr(A) ;
S2 := sqr(B) ;
Label1.Caption := IntToStr(S1) ;
Label2.Caption := IntToStr(S2) ;
End;