Решите задачу Pascal

[Алёнка2]

С клавиатуры вводится 2 целых числа, если их сумма больше 100, программа выводит сообщение - сумма больше 100. Если их разность меньше 50, то программа выводит сообщение разность меньше 50. И сумма и разность тоже выводится на экран.

Нам выдали учебник по паскалю 80-х годов, ввожу в программу паскаль абц примеры из учебника, везде пишет ошибку. Незнаю просто как его учить по старой библии. Помогите с задачкой, я думаю она простая.

[alex_fcsm]

var i,j:integer;
begin
readln(i,j);
if (i+j)>100 then writeln('больше 100:',i+j);
if (i-j)<50 then writeln('меньше 50:',i-j);
end.

[Алёнка2]

Спасибо большое, работает. Для специалистов всё так просто, а я замучилась учебник древний листать

[alex_fcsm]

Если не секрет, напишите что в учебнике