Var
e,f: string;
a,i: integer;
begin
for i:=1 to 10 do
begin
while length(e)<3 do
begin
a:=random(10);
Str (a,f);
e:=e+f;
end;
writeln(e);
e:='';
end;
<span>end.</span>
156 делим на два пока не будет в остатке 0 или 1
<span>Англичане, американцы, французы, итальянцы называют @ «улиткой» . Африканцы, голландцы, поляки, немцы предпочитают называть его «обезьяньим хвостом» . Датчане могут сказать «слоновий хобот» , норвежцы «свиной хвост» , китайцы - «мышонком» , а венгры - «червяком» . Русские - «собакой».</span>
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.