Лабораторная работа: Создание компиляция и отладка простого приложения

Procedure TForm1. Button1Click (Sender: TObject);

var a, b, c: integer;

Begin

a: = StrToInt (Edit1. text); {преобразование текстовой строки в целое число}

b: = StrToInt (Edit2. text);

c: = a + b;

Edit3. text: = IntToStr (c); {преобразование целого числа в текстовую строку}

End;

Запустите приложение на выполнение. Введите два слагаемых и, нажав кнопку с надписью "равно", запустите процедуру обработки события - вычисление суммы двух целых чисел.

Сохраните все изменения внесенные в проект и закройте его.