Пожалуйста посчитайте пожайлуста написать программу на языке Pascal )))Очень срочно

Примерно так:
var A, B, V1, V2: integer;
begin
write('Введите возраст Пети: ');
read(A);
write('Введите возраст Димы: ');
read(B);
V1 := A/2 + 7;
V2 := B/2 + 7;
writeln('Возраст невесты Пети: ', V1);
writeln('Возраст невесты Димы: ', V2);
end.