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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
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.