Код ниже
Объяснение:
program showFrom1To25;
var i: integer;
begin
for i := 1 to 250 do begin
writeln(i);
end;
end.
