Написать программу, которая рисует на экране грустную рожицу - Turbo Pascal - Ответ 1529576

uses graph,crt;
procedure Smail(x,y,r,c1,c2,c3:integer);
begin
setfillstyle(1,c1);
fillellipse(x,y,r,r);
setcolor(c1);
circle(x,y,r);
setcolor(c2);
setfillstyle(1,c2);
fillellipse(x-3,y-3,2,2);
fillellipse(x+3,y-3,2,2);
setcolor(c3);
Arc(x,y+5,0,180,3);
end;
var x,y,r:integer;
    k:char;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
outtextXY(x-50,20,'Exit - Esc');
Smail(x,y,8,14,9,8);
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        y:=y+10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#72 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        y:=y-10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#77 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        x:=x+10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#75 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        x:=x-10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#27 then exit;
  end;
until k=#27;
end.