" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
uses CRT;
label info;
var
command: string;
begin
Clrscr;
Write(':> ');
readln(command);
if command = 'info' then goto info;
info:
begin
Writeln('Tutaj wprowadz procedure info / miedzy begin a end; /');
end;
readln;
end.