Составить задачу в Pascal ABC Через 3 месяца работы вы решили

program srednee;
var a,b,c:real;
begin
write(Введите заработную плату за первый месяц);
read(a);//программка считывает заработную плату труженика за первый месяц
write(Введите заработную плату за второй месяц);
read(b);//программка считывает заработную плату труженика за 2-ой месяц
write(Введите заработную плату за 3-ий месяц);
read(c);//программа считывает заработную плату труженика за 3-ий месяц
write(Ваши отпускные =, (a+b+c)/3);
end.