program kahur;
const
     nkuul = 10;
     minmaa = 100;
     maxmaa = 1000;
     kiirus = 200.0;
     gravit = 32.2;
     pi = 3.1415;
 var
    nurk: real;
    vaenlane: integer;
    surnud: integer;
    lask: 0..nkuul;
    ch: char;
    tabama:boolean;
function vahemaa :integer;   {vahemaa- kui kaugele kuul l„ks}
function aeg: real;          {aeg- kui kaua kuul psib ähus}
begin
     aeg:=(2*kiirus*sin(nurk))/gravit
end;
begin
     vahemaa:= round((kiirus*cos(nurk))*aeg)
end;
procedure tulistamine;
begin
     randomize;
     vaenlane:= random(900)+100;

     writeln('Vaenlane on ',vaenlane:3,' meetrit kaugel!!!');
     lask:=nkuul;
repeat
      write('Nurga suurus ');
      readln(nurk);
      nurk:=(nurk*pi)/180.0;     {kraadist-radiaani}
      tabama:=abs(vaenlane - vahemaa)<= 3;
if    tabama  then
begin
     surnud:=surnud+1;
     writeln('SAID PIHTA!!!');
     writeln('Sa lasksid ',(nkuul-lask),' kuuli');
if
     surnud=1 then
     writeln('SA OLED TABANUD šHE VAENLASE')
else
     writeln('SA OLED PRAEGUSEKS TABANUD ',surnud,' VAENLAST')
end
else
begin
     lask:=lask-1;
if   vahemaa> vaenlane
then
    write('Sa lasksid kaugemale, kui vaja on.Eksisid ')
else
    write('Sul j„i puudu ');
    writeln(abs(vaenlane-vahemaa))
end
until (lask=0) or tabama;
if  lask=0 then
    writeln('Kuulid on otsas.')
end;
begin
     writeln('Sa oled keset säda');
     writeln('ja  sind rndavad ');
     writeln('sajd vaenlased.');
     writeln(' Sinu lesanne on ');
     writeln(' nad tabada.      ');
     writeln('Sinu k„sutuses on ');
     writeln('kahur, millega saad ');
     writeln('lasta iga nurga all.');
     writeln('Sul on ainult ',nkuul,' kuuli');
     writeln('he vaenlase kohta.');
     writeln;
     surnud:=0;
repeat
      writeln('***********************');
      tulistamine;
      write('Ma n„en veel hte vaenlast, kas tahad lasta?');
      readln(ch);
while not (ch in ['Y','N']) do
begin
writeln('Vasta jah(Y) väi ei(N)');
write('Tahad uuesti proovida? ');
readln(ch)
end
until ch <> 'Y';
writeln;
writeln('Sa oled tabanud ',surnud,' vaenlast.')
end.