Лабораторная работиа №1.

Код программы.

procedure TForm1.Button1Click(Sender: TObject);
  var
a,b, c:integer;
begin
  val (edit1.Text,a);
  val (edit2.text,b);
 c:=a+b;
 Edit3.Text:=Inttostr (C);
end;     

Интерфейс.

Ссылка на блок-схему.