Помогите решить задачу на паскале с циклом

Question

Помогите решить задачу на паскале с цикломВвести a и b и вывести квадраты чисел от a до b

Гость

Ответ(ы) на вопрос:

Accepted Answer

program ab; var a,b,i : integer; begin readln(a,b); if a>b then begin i:=a ;a:=b; b:=i; end; for i:=a to b do writeln(i, , i*i ); end;