Var x,m,r:real;
begin
write(Стоимость кв.м. материалов: );
readln(m);
write(Стоимость кв.м. работы: );
readln(r);
write(Имеющаяся сумма: );
readln(x);
if (m+r)*100>x then writeln(Нет, денег не хватит) else writeln(Да, денег хватит)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.