Procedure TForm1.Button1Click(Sender: TObject); var

x1,x2,y1,y2,y:real;

begin

x1=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

y1=x1*x*2;

y2:=x1+x2;

y:=y2/y1;

y:=Int(y);

Label1.Текст:=FloatToStr(y);

end;
Виправити помилки​

Так на пример чтоб совершить какой либо алгоритм ты его предстовояешь сегодня сделал много алгоритмов например с утра что ты делаешь
1. открываешь глоза
2.встаешь
3.одеваешь тапочки
4.встоешь с кровати
5.запровляешь кровать
6.идёшь в вану
7.принимаешь душ
8.чистиш зубы
9.вытираешься
10.одеваешься
11.идеш на кухню
12.береш чайник
13.идёшь к воде
14.включаешь воду
15.подстовляешь чайник
16.ждешь пока набирается вода
17.выключаешь воду
18.идеш к плите
19. ставишь чайник
20.зажигаешь спичку
21.включаешь газ
22.подносишь спичку
23.ждешь воду
и т.д
)

С 22 апреля по 13 мая в нашей школе проходит конкурс «Клумба моей мечты». Ребята 5-8 и 10 класса должны подготовить участок, посадочный материал, материал для ограждения клумбы, продумать дизайн, ну и, конечно, посадить растения. Вечером 6 мая мы собрались осуществить наши планы по посадке клумбы. Было очень холодно, дождливо и ветрено, поэтому поработать пришли только четверо взрослых и пятеро ребят. Ценой героических усилий клумбу вскопали и высадили то, что принесли. Огромное Маниной Ирине Викторовне, Дышековой Татьяне Евгеньевне, Маниной Анастасии, Ломп Карине, Гришковой Юлии, Гордиенко Максиму и Орлову Никите.