program kvadrati;

{$APPTYPE CONSOLE}

uses
SysUtils;
var i,f,x,y:integer;
begin
writeln('Vvedite interval chisel, dlia kotorix nado naiti ix kvadrati');
readln(x,y);
for i:= x to y do
begin
F:=i*i;
writeln('chislo ',i,' kvadrat chisla ',f);
end;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.