Напишите программу по блок-схеме (Паскаль)

Напишите программу по блок-схеме (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость
var A,B,C,M,P:real;  begin     write('Введите A = ');Readln(A);     write('Введите B = ');Readln(B);     write('Введите C = ');Readln(C);     M:=A;     If B