Могу написать типо вводиш 1 и пишет форма, вводишь 2 пишет тик и т.д. сойдет?
А8=7*1000000+2*100000+5*10000+1*100+3+1*0,1+2*0,01
Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
Не собачьи не кошачьи а медвежий
22байта=176бит
15кбайта=117760байт
156=163577856байт