Зполните экран зеленым цветом.Введите строку с клавиатуры.Введите строку в центре экрана(Pascsl abc,) помогите
Uses GraphABC;
const
w=800;
h=600;
var
s:string;
x,y:integer;
begin
SetWindowSize(w,h);
ClearWindow(clGreen);
Write(Введите текст); Read(s);
ClearWindow(clGreen);
SetFontSize(24);
SetFontColor(clRed);
x:=(w-TextWidth(s)) div 2;
y:=(h-TextHeight(s)) div 2;
TextOut(x,y,s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
