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

Question

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

Answer 1

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;