Question

przygotuj kartke swiateczna na wielkanoc w pasacalu.

Answer 1

program swieta;

uses crt;

var
  x,y,len:integer;
  str:string;
  c:char;

begin
  str:='Swieta Wielkanocne';
  len:=length(str);
  x:=1;
  y:=1;
  repeat
    if x mod 2=0then
      textbackground(2)
    else
      textbackground(4);
    clrscr;
    gotoxy(x,y);
    write(str);
    c:=readkey;
    case ord(c) of
      97:if x>1then dec(x);
      115:if y<25then inc(y);
      100:if x<79-len then inc(x);
      119:if y>1then dec(y);
    end;
  until ord(c)=27;
  textbackground(0);
end.