Составьте программу(Pascal),которая напечатает букву в центре экрана.

...

астраумно

uses GraphABC;beginSetWindowSize(200,200);Window.CenterOnScreen();TextOut(80,75,'* * *');TextOut(80,85,'* * *');TextOut(80,95,'* * *');TextOut(80,105,'******');TextOut(80,115,' *');end.

uses crt;begingotoXY(40,13);writeln('* * *');gotoXY(40,14);writeln('* * *');gotoXY(40,15);writeln('* * *');gotoXY(40,16);writeln('******');gotoXY(40,17);writeln(' *');readln;end.

gotoXY(40,17);writeln(' *'); пробелы доставь, а то пропали.

//Free Pascal//При стандартных размерах окнаuses crt;beginclrscr;gotoXY(40,13);writeln('* * *');gotoXY(40,14);writeln('* * *');gotoXY(40,15);writeln('* * *');gotoXY(40,16);writeln('******');gotoXY(40,17);writeln('     *');readln;end. //PascalABC.NETuses GraphABC;beginSetWindowSize(200,200);Window.CenterOnScreen();TextOut(80,75,'* * *');TextOut(80,85,'* * *');TextOut(80,95,'* * *');TextOut(80,105,'******');TextOut(80,115,'     *');end.//Pascal обычный выводbeginwriteln('* * *');writeln('* * *');writeln('* * *');writeln('******');writeln('     *');end.