se Algoritmos

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

program se;
uses Crt;
var
a,b,c:integer;
begin
 read(a);
 if a > 1 then {begin}
 if a > 2 then{begin}
 c:=10;
 if a > 3 then begin
 c:=11;
 b:=11;
 end else begin
 if a > 4 then begin
 c:=12;
 end else {begin}
 if a > 5 then {begin}
 c:=12;
 {end;}
 {end;}
 end;
 {end;}
 {end;}
write(a,b,c); 
end.