Lập trình Pascal trên điện thoại: Viết chương trình đếm ngược Happy New Year 2022

Mã nguồn của chương trình:

program phong_chu;
uses crt,Graph ;
var gd,gm,i,c:Integer;
s: string;
begin
Randomize();
c := 10;
gd:=detect();
initGraph(gd,gm,”);
setColor(White);
setTextStyle(defaultfont,0,8);
repeat
begin
str(c,s);
clearDevice();
delay(500);
outTextxy(325,10,s);
delay(500);
clearDevice();
i := random(5)+1;
setColor(i);
c := c – 1;
end;
until c = 0;
repeat
begin
clearDevice();
delay(500);
outText(‘Happy New Year’);
outTextxy(250,100,’2022′);
delay(500);
clearDevice();
i := random(5)+1;
setColor(i);
end;
until keyPressed();
readln;
end.