var x,a,b,sum:integer;
begin
writeln ('Введите стоимость перчатки');
readln (x);
writeln ('Введите стоимость сумки');
readln (a);
writeln ('Введите стоимость ремня');
readln (b);
sum:=a+b+x;
if (sum>800) then writeln (sum-(sum/100*10));
if (sum<800) then writeln (sum);
end.
предлагаю писать слова наооборот.Например:(я напишу,,я отправляюсь на Марс,и прибуду в час ночи,,)так это будет выглядеть:,,ичон сач в удубрип и ,сарМ ан ьсюялварпто я,,. Удачи))
Ответ смотри в фотографии
Решение показано в прилагаемом файле.
Ответ: 77