program p12 uses crt begin clrscr writeln -------------------- -------

program p12;
uses crt;
begin
     clrscr;
     writeln('-----------------------------------------------');
     writeln('|              |           edinitsa           |');
     writeln('| naimenovanie |------------------------------|');
     writeln('|              | naimenovanie |  oboznachenie |');
     writeln('-----------------------------------------------');
     writeln('| dlina        | metr         |       m       |');
     writeln('-----------------------------------------------');
     writeln('| massa        | kilogramm    |       kg      |');
     writeln('-----------------------------------------------');
     writeln('| vremia       | sekunda      |       s       |');
     writeln('-----------------------------------------------');

     readln;
end.