Pascal

program zadanie2;
 type
 Tkamiony=record
znacka :string;
TK:(ano,nie);
zatazenost:(volny,naceste);
end;
var
dp:Tkamiony;
f:text;
A,V,N:char;
begin
write ('TK');
write ('A-ano,N-nie:');
readln(A);
until (A='a') or (A='A') or (A='n') or (A='N');
Case A of
'a','A':dp.TK:=ano;
'n','N':dp.TK:=nie;
end;
write ('zatazenost:');
write ('V-volny, N-naceste:');
readln (V)
until (V='v') or (V='V') or (V='n') or (V='N');
Case V of
'v','V' :dp.zatazenost:=volny;
'n','N' :dp.zatazenost:=naceste;
end;
write (f,'znacka',dp.znacka);
write (f,'TK',dp.TK);
write (f,'zatazenost',dp.zatazenost);
end.

program zadanie2;
type
  TKamion=record
    znacka : string;
    tk : (ano,nie);
    zatazenost : (volny,na_ceste);
end;
var
  dp : TKamion;
  f : text;
  A, V : char;
begin
  Assign(f, 'kamion.txt');
  Rewrite(f);
  write('Znacka: ');
  readln(dp.znacka);
  repeat
    write('TK ([A]no, [N]ie): ');
    readln(A);
  until (A = 'a') or (A = 'A') or (A = 'n') or (A = 'N');
  Case A of
    'a', 'A' : dp.TK := ano;
    'n', 'N' : dp.TK := nie;
  end;
  repeat
    write('zatazenost ([V]olny, [N]a ceste): ');
    readln(V);
  until (V = 'v') or (V = 'V') or (V = 'n') or (V = 'N');
  Case V of
    'v', 'V' : dp.zatazenost := volny;
    'n', 'N' : dp.zatazenost := na_ceste;
  end;
  writeln(f, 'Znacka: ', dp.znacka);
  writeln(f, 'TK: ', dp.tk);
  writeln(f, 'Zatazenost: ', dp.zatazenost);
  Close(f);
end.

Program pocitac;
type Tpocitac=record
  Znacka : string;
  Farba : (biela,cierna,strieborna);
  Uhlopriecka : integer;
  Pamat : real;
  Hmotnost : real;
end;
var
  pc : Tpocitac;
  S : Char;
  I : Integer;
  LINE: string;
  f: text;
begin
  Assign(f, 'pocitac.txt');
  Rewrite(f);
  writeln('Zadaj nasledujuce polozky:');
  write('Znacka:');
  readln(pc.znacka);
  repeat
    writeln('Farba :');
    write('B-biela,C-cierna,S-strieborna: ');
    readln(S);
  until (S = 'b') or (S = 'B') or (S = 'c') or (S = 'C') or (S = 's') or (S = 'S');

  Case S of
    'b','B' : pc.farba := biela;
    'c','C' : pc.farba := cierna;
    's','S' : pc.farba := strieborna;
  end;
  writeln(f, 'znacka: ', pc.znacka);
  writeln(f, 'farba: ', pc.farba);
  writeln(f, 'uhlopriecka: ',pc.uhlopriecka);
  writeln(f, 'Pamat: ',pc.pamat:3);
  writeln(f, 'Hmotnost: ', pc.Hmotnost:6:2);
  close(f);
end.