Если с клавиатуры вводить оценки, то так
var
a,b,c,d:integer;
begin
a:=0; b:=0; c:=0;
for i:=1 to 20 do
begin
readln(d);
if d=2 then inc(a) else
if d=3 then inc(b) else
if d=4 then inc(c);
end;
write(' dvoek - ', a, 'troek - ', b, 'chetverok - ', c);
readln;
end.
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span>
<span>861,328125Кбайт</span></span>
Число -10 не больше или равно двум, не лежит в пределах от 1 до 4, Не равняется 2, 10, -4, 3, 7, при умножении на себя не даёт число, меньшее нулю. Значит, что программа выведет: "дерево"
Родился. Подрос. Ещё не много. Пошёл в садик. Закончил садик. Пошёл в школу 1 класс. Уже в 5-8 и т.д поступил в институт. Закончил его. Нашёл работу. Купил квартиру. Завёл семью. Жили долго и счастливо. Потом умер. Так?
1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо