Лабы / Pascal.1.курс / part 1 / variant 13 / lab3

program flag;
uses crt;
Begin
Textbackground(black);
clrscr;

TextColor(Lightgreen);
GoToXY(30,3);
Write('” € Ќ ‹ џ Ќ „ € џ');

Window(10,5,70,20);
Textbackground(white);
clrscr;

Window(30,5,35,20);
textbackground(lightblue);
clrscr;

Window(10,12,70,14);
textbackground(lightblue);
clrscr;
readln;
end.