Составить блок-схему к программе
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.

Вот так, вроде. В принципе, да.