<span>Краска А 300002
кг в 1 смену и 99998 кг во 2 смену</span>
<span>Краска Б 94376
кг в 1 смену и 5624 кг во 2 смену</span>
<span>Краска В 144498
кг в 1 смену и 55502 кг во 2 смену
</span><span>Затраты в сумме 7650000000 р.
</span>
Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.
153₁₀ = 10011001₂
674₁₀ = 1010100010₂
29₁₀ = 11101₂
105₁₀ = 1101001₂
701₁₀ = 1010111101₂
1080₁₀ = <span>10000111000</span>₂