Turbo Pascal. Составьте програму

[Анастасия286]

Каждое утро майор Знаменский заходит в тир и делает 5 выстрелов через плечо. Если он набирает 50 очков, то вечером идет с Зиночкой в ресторан, аесли меньше, то на тренировку в тир. Написать программу, которая распечатывает планы майора на вечер.
Заранее спасибо

[Gelirgwenn]

странно, что в задании мишень не описана...
допустим, что мишень в тире обычная, т.е. уменьшающиеся круги с очками от 1 до 10, если промазал по мишени, то ноль очков соответственно
можно использовать рандомные вариации от 0 до 10 для каждого выстрела
вот вам примерчик решения

program Strelok;
const m=5;
var
Summ: integer;
i: integer;
begin
randomize;
Summ:=0;
for i:=1 to m do
   Summ:=Summ+random(11);
if (Summ<50) then
   writeln('Майор идет тренироваться')
else
   writeln('У Зиночки сегодня будет неплохой вечер');
end.

З.Ы. если результат необходимо вывести на печать, то тут код зависит от принтера и каким кабелем он подключен
З.Ы.Ы. если использовать мой вариант мишени, то майор так и помрет в тире на тренировках, шанс сходить в ресторан у него ничтожный