Их бывает 4 вида:
левое
правое
по середине
по ширине
выбери сам
Вот более короткое:
var a,b:real;
begin
readln(a,b);
if a>b then writeln(a+b) else writeln(a*b);
writeln('Задача решена');
end.
var a,b,c:integer;
begin
readln(a,b,c);
if a<(b+c) then writeln('Не слишком длинный') else writeln('Перебор');
end.
110111011+110110110 =1101110001
1101110001-11011011 = 1010010110
110010*101110 = 100011111100
101000100110:110101 = 110001