Program Pzim ; Var x,num,soma,soma2:integer; Begin Writeln('Digite um numero maior que ZERO :'); //solicita que seja digitado um numero Read(Num); // lê o número If num<=0 then //se o número for invalido recusa Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem else For x:=1 to num do //faz de 1 até o numero Begin ...