{
  NAPISZ PROGRMA KTORY WPROWADZI INFORMACJE O OSBIEI BEDACEJ WLASCICIELEM
  OKRESLONEGO ALTA WYKORZYSTAJ TYP WYLICZENIOWY DO ZDEFINIOWANIA KOLORU
  SAMOCHODU
}

program zad;
uses crt;

type
 k=(srebrny,czarny,czerwony,bialy,zielony,niebieski,inny);

var
 imie,nazwisko:string[20];
 adres:string[50];
 kolor:k;
 nr_rej:string[10];
 rok_prod:integer;
 poj:integer;
 z:char;

procedure wpis;
begin

 writeln ('Podaj dane wlasciciela samochodu');
 writeln;

 writeln('Imie:');
 readln(imie);

 writeln;

 writeln('Nazwisko:');
 readln(nazwisko);

 writeln;

 writeln('Adres:');
 readln(adres);

 writeln;
 writeln;

 repeat

  writeln('Wybierz kolor auta:');
  writeln;
  writeln('S - srebrny');
  writeln('C - czarny');
  writeln('K - czerwony');
  writeln('B - bialy');
  writeln('N - niebieski');
  writeln('I - inny');
  writeln;

  readln(z);

  z:=upcase(z);

  case z of
   'S':kolor:=srebrny;
   'C':kolor:=czarny;
   'K':kolor:=czerwony;
   'B':kolor:=bialy;
   'N':kolor:=niebieski;
   'I':kolor:=inny
   else
    writeln('Zle wybrana litera koloru!');
  end;

 until ((z='S') or (z='C') or (z='K') or (z='B') or (z='N') or (z='I'));

 writeln;

 writeln('Podaj numer rejestracyjny');
 readln(nr_rej);

 writeln;

 writeln('Podaj rok produkcji');
 readln(rok_prod);

 writeln;

 writeln('Podaj pojemnosc');
 readln(poj);


end;

procedure wysw;
begin



end;

begin
clrscr;

wpis;

readln;
end.