//Pascal ABC.NET v3.1 сборка 1219//Как я понял, количество очков случайноVar a,i,s:integer;begin randomize; for i:=1 to 5 do begin a:=random(11); writeln(i,' выстрел -',a); s:=s+a; end; writeln('Сумма=',s); if s=50 then writeln('Идет с Зиночкой в ресторан') else writeln('На тренировку в тир');end.Пример работы программы:1 выстрел -32 выстрел -103 выстрел -74 выстрел -85 выстрел -0Сумма=28На тренировку в тир