На первой картинке исполнитель автомобиль, а на второй картинке - робот
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(0.5,4.0,7).Select(x->(x,Power(x+1,3)-2))
.ForEach(x->Writeln(x[0]:4:2,x[1]:10:3))
end.
<u>Результат</u>
0.50 1.375
1.00 6.000
1.50 13.625
2.00 25.000
2.50 40.875
3.00 62.000
3.50 89.125
4.00 123.000
Сначала вводишь кол-во учеников : 20, затем оценки (20 оценок вводишь).
var i,n,a,d,t,chet,p:integer;
begin
read(n);
while i<n do begin
read(a);
if a=2 then d:=d+1;
if a=3 then t:=t+1;
if a=4 then chet:=chet+1;
if a=5 then p:=p+1;
i:=i+1;
end;
writeln('Двоек: ',d);
writeln('Троек: ',t);
writeln('Четверок: ', chet);
writeln('Пятерок: ',p);<span>
end.</span>