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

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

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