Program Rameczka1;

Uses CRT;

var numer:byte;

Begin

Write('1 - Ramka pierwsza 2 - Ramka druga :');

Read(numer);

If numer=1 Then

Begin

ClrScr;

Writeln('I-------------------------------------------I');

Writeln('I I');

Writeln('I I');

Writeln('I I');

Writeln('I-------------------------------------------I');

GotoXY(8,3);

Write('Oto Ramka 1');

End;

If numer=2 Then

Begin

ClrScr;

Writeln('I-------------------------------------------I');

Writeln('I I');

Writeln('I I');

Writeln('I I');

Writeln('I-------------------------------------------I');

GotoXY(8,3);

Write('Oto Ramka 2');

End;

End.

Program Rameczka2;

Uses CRT;

var numer:byte;

procedure Ramka;

begin

clrscr;

writeln('i-------------------------------------------i');

writeln('i i');

writeln('i i');

writeln('i i');

writeln('i-------------------------------------------i');

gotoxy(8,3);

end;

Begin

Write('1 - Ramka pierwsza 2 - Ramka druga :');

Read(numer);

If numer=1 Then

Begin

ClrScr;

Ramka;

GotoXY(8,3);

Write('Oto Ramka 1');

End;

If numer=2 Then

Begin

ClrScr;

Ramka;

GotoXY(8,3);

Write('Oto Ramka 2');

End;

End.

---