Побудувати алгоритм розв’язування задачі:

Дано дійсні а і b. Якщо а – більше числа 100, то знайти суму чисел, якщо а – менше 100, то знайти добуток чисел, а якщо а=100, то знайти частку а/b.

var a,b:integer;

begin

  writeln('Введите a: ');

 readln(a);

  writeln('Введите b: ');

 readln(b);

 if a >100 then writeln('Сумма чисел: ', a +b)

 else

  writeln('Частное чисел: ', a/b)

end.