начало

выражени

	P1	истина
			Действие 1
	ложь
		истина
	P2		Действие 2

ложь

………………………………………………………….

истина

Pn	Действие n

ложь Действие n +1

конец

Примеры решений задач

1. Даны действительные числа х и у. Получить max(x,y).

Program maximum;

Var x,y:real;

Begin

Write('Введите х и у');

Readln(x,y);

If x>y then m:=x else m:=y;

71