Курсовая работа: Створення програми гри "Шибениця"
begin
line (150,90,115,100);
line (150,90,185,100);
end;
if el>=6 then
begin
line (150,85,150,125);
end;
if el>=7 then
begin
line (150,125,175,150);
line (150,125,125,150);
end;
for k: =1 to 26 do
begin
if alphabet [k] =false then outtextxy (k*20,300,chr (k+64))
else
begin
setcolor (red);
outtextxy (k*20,300,chr (k+64));
setcolor (white);
end;
end;
for k: =1 to length (second) do
begin
rectangle (k*15+50,280,k*15+65,295);
if second [k] <>first [k] then
outtextxy (k*15+55,285,second [k]);
end;