[Fairfox63]

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

Код:

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.

Админ: Пользуемся тегами для оформления кода!

[Страдалецъ]

Тут не перенос, а полная переделка программы. Замена консольных команд на визуальные элементы. Не хотите сами делать в Работу идите, а ждете шары то тоже в соответствующий раздел форума.