PROGRAM samochody;
USES CRT;
{Krzemien Lukasz}
VAR
   d,m,k,p,t,f:byte;

BEGIN
     ClrScr;
     WriteLn('Podaj liczbe drzwi:   2   3   4  ');
     ReadLn(d);
     ClrScr;
     WriteLn('Podaj moc silnika:   60   100   200  ');
     ReadLn(m);
     ClrScr;
     WriteLn('Podaj kolor:   1-niebieski   2-czarny   3-czerwony  ');
     ReadLn(k);
     ClrScr;
     WriteLn('Podaj rodzaj paliwa:   1-et   2-on   3-gaz  ');
     ReadLn(p);
     ClrScr;
     WriteLn('Podaj rodzaj tapicerki:   1-tkanina   2-skora  ');
     ReadLn(t);
     ClrScr;
     WriteLn('Podaj rodzaj felg:   1-stal   2-alu  ');
     ReadLn(f);
     ClrScr;
     IF (d=3) AND (m=60)  AND (k=1) AND (p=1) AND (t=1) AND (f=1) THEN
              BEGIN
                   WriteLn('Opel');
                   ReadLn;
                   Halt;
              END;
     IF (d=2) AND (m=100) AND (k=2) AND (p=2) AND (t=1) AND (f=1) THEN
              BEGIN
                   WriteLn('Nissan');
                   ReadLn;
                   Halt;
              END;
     IF (d=2) AND (m=200) AND (k=2) AND (p=1) AND (t=2) AND (f=2) THEN
              BEGIN
                   WriteLn('Ferrari');
                   ReadLn;
                   Halt;
              END;
     IF (d=2) AND (m=200) AND (k=3) AND (p=1) AND (t=2) AND (f=2) THEN
              BEGIN
                   WriteLn('Ferrari');
                   ReadLn;
                   Halt;
              END;
     IF (d=2) AND (m=200) AND (k=3) AND (p=1) AND (t=1) AND (f=1) THEN
              BEGIN
                   Writeln('Opel');
                   readln;
                   halt;
              END;
     IF (d=3) AND (m=100) AND (k=3) AND (p=2) AND (t=2) AND (f=1) THEN
              BEGIN
                   WriteLn('Opel');
                   ReadLn;
                   Halt;
              END;
     IF (d=3) AND (m=100) AND (k=3) AND (p=3) AND (t=1) AND (f=1) THEN
              BEGIN
                   WriteLn('Opel');
                   ReadLn;
                   Halt;
              END;
     IF (d=3) AND (m=200) AND (k=2) AND (p=1) AND (t=2) AND (f=2) THEN
              BEGIN
                   WriteLn('Ferrari');
                   ReadLn;
                   Halt;
              END;
     IF (d=4) AND (m=100) AND (k=1) AND (p=3) AND (t=1) AND (f=1) THEN
              BEGIN
                   WriteLn('Nissan');
                   ReadLn;
                   Halt;
              END;
     IF (d=4) AND (m=100) AND (k=1) AND (p=2) AND (t=1) AND (f=2) THEN
              WriteLn('Nissan') ELSE
                                WriteLn('Nie ma takiego auta');

     ReadLn;
END.