Природа, транспорт, мебель, предметы, живые организмы)
Var a,b: real;
begin
read(a,b);
if (a=b/2+7) then writeln('проходит') else writeln('не подходит');
end.
сначала вводится возраст жениха
1.Взять горшок
2.Поставить горшок.
3.взять землю
4.насыпать землю
5.вставить цветок.
ПОКА
Var
i,s:integer;
a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do
begin a[i]:=random(21);
write(a[i],' ');
if a[i]<=10 then s:=s+a[i]
end;
writeln('Сумма ',s)
<span>end.</span>
Можно чуток оптимизировать, чтобы красивее смотрелось