[Fairfox63]

Помогите переделать в форму.
написал в консоли, но надо перенести на форму.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

program Project1; {$APPTYPE CONSOLE} uses SysUtils; var Sum,i,a:integer; s:string; function Even(K:integer):boolean; begin if K mod 2=0 then Even:=true else Even:=false; end; begin /////// основная программа ///////////// begin sum:=0; Writeln('vvedite 10 tselix chisel '); for i:=1 to 10 do begin read(a); if Even(a) then inc(sum); end; Writeln('Tsetnix chisel = ',Sum); repeat readln(s); if s = ' ' then begin end; until s = 'exit' end; end.

[M.A.D.M.A.N.]

Повтор
http://www.delphisources.ru/forum/sh...ad.php?t=24580