program akarmi; procedure elj1; begin writeln('Pascal-progi...'); end; begin elj1; readln; end.