Трамвайный билет имеет шестизначный номер(от 100000 до 999999). выяснить, является ли билет "счастливым". билет назовем "счастливым", если первая и последняя цифра билета являются натуральными ( т.е. делятся на 1 и на само
себя ). решение с функций div + mod + циклы. буду .

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 :integet; 

begin

writeln ('Vvedit # bileta');

readln (a);

t:=a div 100000;

r:=a mod 100000 mod 10000 mod 1000 mod 100 mod 10;  {барыжна строчка;)  }

n:=9; s:=0; s2:=0;

for i:=1 to n do begin       

h:=t mod i; if h=0 then s:=s+1;

h2:=r mod i;  if h2=0 then s2:=s2+1;

end;

if (h=2) and (h2=2) then writeln ('Bilet shasliviy');

else writeln ('Bilet obichniy tramvayniy=)');

readln

end.