sábado, 22 de setembro de 2018
não apague! importante temporariamente
Program HelloWorld(output);
Var
M,Q: integer;
Soma: integer;
Media: integer;
begin
writeln('Digite a primeira nota: ');
readln(M);
writeln('Digite a segunda nota: ');
readln(Q);
Soma:= (Q+M);
Media:= Soma div 2;
writeln('A media e: ',Media);
readln;
If Media >= 7 then
begin
writeln('Voce esta REPROVADO! Brincadeira voce passou, parabens!!!');
readln;
end
Else
begin
writeln('Voce esta reprovado! Bem feito hahaha');
readln;
end;
end.
Assinar:
Postagens (Atom)