[SerJi]

Сообщение от ViNT

var a,b,c,d:integer;
begin 
//ввод a, b, c, d
showcanvas;
if a=1 and b=3 and c=0 and d=7 then
DrawText('№1',0,10);
//другие условия
repaint;
end.

спасибо за ответ, я так и думал что надо перейти до холста, гдето в хеле
прочитал.