С клавиатуры вводятся вес яблока и вес груши

Var a,b: real; Begin Write ('Введите вес груши: '); readln (a); Write ('Введите вес яблока'); readln (b); if a>b then writeln ('Вес яблока: ',b); if a