Нужна блок-схема к программеprogram if17;var A, B, C: Real;begin Write(039;Введите 1-ое

Нужна блок-схема к программке
program if17;
var
A, B, C: Real;
begin
Write('Введите 1-ое число: ');
Readln (A);

Write('Введите 2-ое число: ');
Readln (B);

Write('Введите третье число: ');
Readln (C);

if B=C then Writeln('1');
if A=C then Writeln('2');
if A=B then Writeln('3');
end.