В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
Вот вроде) только тут Нахождение суммы четных чисел от 1 до N
var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
c:=c+1;
readln(b);
if b>a then
writeln('Загаданное число меньше ! ');
if b<a then
writeln('Загаданное число больше ! ');
if b=a then
writeln('Победа!');
until a=b;
writeln(c);
readln;
<span>end.</span>