Вася действует по следующему алгоритму: Шаг 1. Купить стакан сока за 20 рублей. Шаг 2. Выпить сок и подождать 1 час. Шаг

задача 1

program z1;

var a:array[1..20]of byte;
i,kol:b1yte;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
if a[i]=5 then kol:=kol+1;
writeln('otlichnikov=',kol);
end.

задача 2

program nacelo;
var i:integer;
begin
i:=200;
while i mod 17<>0 do
begin
i:=i+1;
end;
writeln(i);
end.