Вопрос по среде программирования delphi
как сделать так, чтобы при нажатии на button1 в label1 выводилась фигура shape1?

Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.

В результате работы программы будет выведено 120

Объяснение:

Изначально переменной S присваивается значение 1. Затем, идёт цикл for k:=1 to 5

То есть, цикл выполнится столько раз, пока k не будет равно 5

Поясню заранее: итерация - повтор (чтобы было понятно, что за слова я пишу)

1) Первая итерация (k = 1)

s := s * 1 = 1 * 1 = 1

2) Вторая итерация (k = 2)

s := s *2 = 1 * 2 = 2

3) Третья итерация (k = 3)

s := s * 3 = 2 * 3 = 6

4) Четвертая итерация (k = 4)

s := s * 4 = 6 * 4 = 24

5) Последняя итерация (k = 5)

s := s * 5 = 24 * 5 = 120

Больше итераций не будет, т.к. мы дошли до того, что k = 5 (это же нам и требовалось)

В конце выведется последнее значение s, то есть, 120

Впрниципе, подробнее объяснения я придумать не смог

Надеюсь . Удачи!