3-тапсырма
комектесинши тезірек тттееззз инфарматика​ дам 5 звезд

А - количество порций эскимо на столе
В - количество стаканчиков на столе

Начало

Ввод данных:
В : = 18
А : = В/3

Действие 1:
В : = В - 3

Действие 2:
А:= А-5

Вывод результатов:
Покажи А
Покажи В

Конец

Протокол выполнения алгоритма:
№ команды  Имя переменной   Значение переменной 
1.                          В                                    18
2.                          А                                      6
3.                          В                                    15
4.                          А                                       1
 

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.