Контрольная работа: Автоматизований облік власників автотранспорту

textbackground(0);

clrscr;

window (10,10,35,15);

Writeln ('Dla udalenia nagmi – «ENTER» ');

if readkey=#13 then

begin

textcolor(4);

s:='UDALENO';

for i:=1 to length(s) do

begin

write (s[i]);

for j:=1 to 5 do

delay(9999);

end;

end

else

end;

end;

{:}

var i:byte;

key:char; k, p:byte;

begin

textmode(c40);

{vv;}

{red;}

{udal;}

repeat

window (1,1,40,25);

textbackground(7);