Instrukcja WITH
type
motocykl = record
marka: string[10];
symbol : string[10];
predkoscmax: integer;
end;
{01} program motorki;
{02} type
{03} motocykl = record
{04} marka :string[10];
{05} symbol :string[10];
{06} predkoscmax :integer;
{07} end;
{08} var
{09} garaz :array[1..3] of motocykl;
{10} a :integer;
{11} begin
{12} writeln('Wprowadz trzy motocykle do garazu ');
{13} for a:=1 to 3 do
{14} begin
{15} writeln('Marka motocykla nr: ',a,' to: ');
{16} readln(garaz[a].marka);
{17} writeln('Symbol motocykla nr: ',a,' to: ');
{18} readln(garaz[a].symbol);
{19} writeln('Najszybciej jechales motocyklem nr: ',a,'[km/h] ? ');
{20} readln(garaz[a].predkoscmax);
{21} end;
{22} writeln('Wyswietle co jest w garazu wcisnij ENTER');
{23} readln;
{24} for a:=1 to 3 do
{25} begin
{26} writeln('motorek nr: ',a);
{27} writeln(garaz[a].marka);
{28} writeln(garaz[a].symbol);
{29} writeln(garaz[a].predkoscmax);
{30} end;
{31} writeln('KONIEC wcisnij ENTER');
{32} readln;
{33} end.
