Паскаль 30 ! школьники иванов и петров за время летних каникул заработали определенную сумму. кто из них заработал большую сумму? определить средний заработок

var

i, p, w:real;

begin

writeln('Введите зарплату Иванова');

readln(i);

writeln('Введите зарплату Петрова');

readln(p);

if i>p then

writeln ('Иванов заработал больше Петрова') else

writeln ('Петров заработал больше Иванова');

w:=(i+p)/2;

writeln ('Средняя зарплата мальчиков ', w, ' руб.');

end.