var
m,v,s,a,d,mm: real;
begin
writeln ('задай количество миль');
v:=m*7;
writeln (m,'миль=',v,'верст');
s:=v*500;
writeln (m,'миль=',s,'саженей');
a:=s*3;
writeln (m,'миль=',a,'аршинов');
d:=a*28;
writeln (m,'миль=',d,'дюймов');
mm:=d*25.4;
writeln (m,'миль=',mm,'миллиметров');
end.
A:=336/8=42 div - это челочисленое деление
d:= 0
Program First;
var
A, b, a, d : integer;
begin
A:= 336;
b:= 8;
a:= A div b;
d:= A mod b;
writeln(a, d);
end.
Новые трюки Пилы ))))))))))