Запишите на языке Паскаль в виде участка программы следующую блок-схему:

Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
C:=A-B;
if C = 0 then WriteLn('Ввели равные числа')
else WriteLn('Ввели не равные числа')
End.

Спасибо большое)