Даны 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;