Программа считывает A, C, P.
Учитывая, что С и Р могут быть дробными числами и то, что обе девушки могут быть не правы.
Язык программирования: Паскаль.
var
A, C, P: real;
begin
readln (A);
readln (C);
readln (P);
if C := A / 2 * 3 then
writeln ('Валя права');
if P := A / 2 * 3 then
writeln ('Вера права');
if (C <> A / 2 * 3) and (P <> A / 2 * 3) then
writeln ('обе не правы');
end.