[ST TPX.EXE
File Edit Search Run Compile Debug Tools Options Window Help
with do begin
readln<a>; readln<b>; readln<c>; readln<d>; end; end;
procedurę wyswietlenie<var x:rr>; oar
i:byte; begin
with x^ do begin
T
writeln<ł '>; writeln<a>; writeln<b>; writeln<c>; writeln<d>; dispose<x> l=^ 41:56 =
FI Help F2 Saoe F3 Ópen Alt+F9 Compile F9 Make Alt+F10 Local menu