Составить программу, которая осуществляет ввод строки с клавиатуры и вывод ее на экран в
одинарной рамке из символов псевдографики.
program Border;
type
{ Window frame characters }
FrameChars = array[1..8] of char;
const
SingleFrame: FrameChars = '┌─┐││└─┘';
var
s: string;
i: integer;
begin
readln(s);
Write(SingleFrame[1]);
for i := 1 to length(s) do
Write(SingleFrame[2]);
writeln(SingleFrame[3]);
writeln(SingleFrame[4], s, SingleFrame[5]);
Write(SingleFrame[6]);
for i := 1 to length(s) do
Write(SingleFrame[7]);
writeln(SingleFrame[8]);
end.
const
SingleFrame: FrameChars = #$DA#$C4#$BF#$B3#$B3#$C0#$C4#$D9;
program Border;
type
{ Window frame characters }
FrameChars = array[1..8] of char;
const
SingleFrame: FrameChars = '┌─┐││└─┘';
var
s: string;
i: integer;
begin
readln(s);
Write(SingleFrame[1]);
for i := 1 to length(s) do
Write(SingleFrame[2]);
writeln(SingleFrame[3]);
writeln(SingleFrame[4], s, SingleFrame[5]);
Write(SingleFrame[6]);
for i := 1 to length(s) do
Write(SingleFrame[7]);
writeln(SingleFrame[8]);
end.
const
SingleFrame: FrameChars = #$DA#$C4#$BF#$B3#$B3#$C0#$C4#$D9;