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

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.