Question

Составить блок схему:

var a,b,c:integer;
Begin 
read(a,b,c); 
 if (a>b) then a:=a else a:=b; 
if (a>c) then a:=a else a:=c; 
writeln(a);
End.

Answer 1

a=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.