Вот, парни, не мучайтесь:
program dney;
var
d,t : integer;
dney1 : string;
begin
delay(1000); d:=0;
repeat
t:= d mod 10;
dney1:=' дней';
if (d<10) or (d>14) then
begin
If t=1 then dney1:=' день' ;
If (t>1) and (t<5) then dney1:=' дня'
end;
setcolor(255,255,255); fillrect(0,0,getwidth,getheight);
setcolor(0,0,0);
drawtext(''+d+dney1+' t='+t,2,2);
repaint;
delay(1000);
d:=d+1;
until (getkeyclicked<>0) or (d>31);
end.
200% гарантия работы на МП
