STRUKTURY – DANE TECHNICZNE SAMOCHODU:

program samochod;
uses crt;
type Auto=record
  MARKA, TYP,RODZAJ: string[30];
  ROK: integer;
  end;
  WAuto=^Auto;
var WA:WAuto;

begin
 clrscr;
 writeln('DANE TECHNICZNE SAMOCHODU');
 new(WA);
 write('Podaj marke: ');
 readln(WA^.MARKA);
 write('Podaj typ samochodu: ');
 readln(WA^.TYP);
 write('Podaj rodzaj nadwozia: ');
 readln(WA^.RODZAJ);
 write('Podaj rok produkcji: ');
 readln(WA^.ROK);
writeln;
 writeln('WPROWADZONO NASTEPUJACE DANE:');
 writeln('Marka: ',WA^.MARKA);
 writeln('Typ samochodu: ',WA^.TYP);
 writeln('Rodzaj nadwozia: ',WA^.RODZAJ);
 writeln('Rok produkcji: ',WA^.ROK);
 dispose(WA);
 readln;
end.