С клавиатуры вводятся целые числа a,b и c. Если (a+с)*b меньше, чем 100-а, тогда выведите a-с, в противном случае напечатайте b+2*a.

Вроде так
var a,b,c:integer;begin readln(a,b,c); if ((a+b)*c)lt;(100-a) then writeln(a-c)  else writeln(b+2*a);end.

Var
a,b,c:integer;
begin
writeln(vvedite 3 chisla);
readln(a,b,c);
if ((a+b)*c) lt; (100-a) then 
writeln(a-c) else
writeln(b+2*a);
readln
end.