Еще одна задача

[felice]

4. Задать два произвольных числа, найти их среднее арифметическое, если значение ср. арифметического не больше числа 100, то печатать цифру 1, в противном случае печатать цифру 2.

[zetrix]

uses crt;
var a,b:integer;
begin
a:=random(200);
b:=random(200);
if (a+b)/2 <= 100 then writeln('1')
                  else writeln('2');
readln;
end.

[felice]

Спаасибо!!!Какие вы программисты всё-таки умные!