з паскаля на делфи

[Sky{Force}]

uses crt;

function sum(i: longint): longint;
var j, s: longint;
begin
      s := 0;
      for j := 1 to i div 2 do begin
         if i mod j = 0 then begin
            s := s + j;
         end;
      end;
      sum := s;
end;

var
   i, j: longint;
begin
   for i := 200 to 300  do begin
     for j := i to 300 do begin
       if (sum(i) = j) and (sum(j) = i) then
         writeln(i, ' and ', j);
     end;
   end;
   readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

зайти в Delphi - File - New ... - Console Application

откроется окошко с кодом:

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

begin
end.

вот вместо begin end. и вставляйте Ваш код.
строчку uses Crt; удалите полностью - она в Delphi не используется.

всё.

[Sky{Force}]

пасиба большое!)