7 месяцев назад

Горизонт

Основная информация

Время обучения: Суббота 11.40-13.40
Дополнительное занятие: Вторник 17.20

Стена группы

АрсКодер 6 месяцев назад #

procedure TForm1.Button1Click(Sender: TObject);

var

s:string;

name,old,city:string;

age:integer;

begin

name:=Ename.Text;

old:=Eold.Text;

city:=Ecity.Text;

age:=2025-strtoint(old);

s:='Вас зовут '+name+', Вам '+old+' лет, вы живете в город '+city

+', вы родились в '+ inttostr(age)+' году.';

showmessage(s);

end;