Programa Maior

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Maior;
 Var
i, M, Val: integer; 
Begin 
 For i:= 1 To 3 do 
Begin 
 Writeln ('Int. valor');
 Readln (Val); 
 if val> M then 
 M:= Val; 
End;
Writeln (M);
End.