Escreva um algoritmo que leia 15 números e imprima quantos números maiores que 30 foram digitados.

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

Program Pzim ; 
var cont, x, n: integer;
Begin
	cont:=1;
	x:=0;
	while cont <=15 do
		begin
			writeln ('informe lavor',cont);
		 readln(n);
		 if n>30 then
		 x:=x+1;
		 cont:=cont+1;
		end;
	Writeln ('números são',x);
End.