Question

Зполните экран зеленым цветом.Введите строку с клавиатуры.Введите строку в центре экрана(Pascsl abc,) помогите

Answer 1

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.