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

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

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