имеется код программы на языке паскаль

Ответ от Безпилотный модуль™[гуру]
тыща рублей program lab; uses crt; type N=word; var x:word; procedure prost (y:N); var i,j,s:word; begin for i:=1 to y-1 do begin s:=0; for j:=1 to trunc(i/2+1) do if i mod j = 0 then s:=s+j; if s=i then writeln(\'sovershennie chisla = \',i); end; end; {ocnovnaya prog} begin clrscr; writeln(\'vvedite celoe chislo\'); readln(x); prost(x); repeat until keypressed; end.