Задание 17. Маша и Паша вырезали из белой бумаги пять осенних листьев разных форм. Сколькими можно покрасить вырезанные листья в красный и желтый цвета, если количество краски
не ограничено, а каждый листок можно красить только в один цвет дою ​

р треугольника= сложить все стороны

            i                    с                 i            i с                                  c i

            i                  с                     i

            c -  cтул

            4 стула поставить по углам комнаты, а еще 4 - по одному у каждой стены.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.