Составить блок-схему к программе program if17; var A, B, C: Real; begin Write('Введите первое число: '); Readln (A); Write('Введите второе число: '); Readln (B); Write('Введите третье число: '); Readln (C); if B=C then Writeln('1'); if A=C then Writeln('2'); if A=B then Writeln('3'); end.