Помогите пожалуйста! Нужно на языке паскаль написать прогу для решения задачи: Y=a+b/c+b. Буду очень благодарна.)

var
a, b, c, y: real;
begin
write('a b c? ');
readln(a, b, c);
if c 0 then begin
y := a + b / c + b;
writeln('y: ', y:0:2);
end
else
writeln('деление на ноль');
end.