Program Pzim ;
var
num,soma,c : integer;
 Begin
 writeln('Digite um numero:');
 read(num);
 if num<1 then
 begin
   repeat
     writeln('Numero invalido. Digite novamente: ');
     readln(num);
     clrscr
   until num>=1;
 end;
 for c:=1 to num do
 begin
   soma:=soma+c;
   c:=c+1
 end;
 clrscr;
 writeln('A soma de todos os numeros impares positivos at้ o numero lido ้ ',soma);
 readkey   
 End.