ver1.game

uses //Подключение модуля
    crt;
var a,b,c,d,e:integer;
begin
    textbackground (black); //Перекраска фона
    clrscr; //Очистка экрана и применени цвета фона
    textcolor (13); //Текст будет розовым цветом
    a:=10;
    b:=10;
  for e:=10 to 50 do
  begin
    gotoxy (a,b); //Курсор будет перемещён в точку
    write ('O'); //Вывод текста
    delay (100); //Задержка
    gotoxy (1,1);
    write('1-right,2-left,3-down,4-up   ====> ');
    readln(c); //Значение перемещения
    if c=1 then a:=a+5;
    if c=2 then a:=a-5;
    if c=3 then b:=b+5;
    if c=4 then b:=b-5;
    clrscr; //Очистка экрана
    end;
readln;
end. //Конец программы