Program Pzim ;
var
num,i:integer;
procedure somar(x :integer);
begin
for i:=1 to 10 do //a variavel i é global, por isso não é preciso iniciar ela aqui no procedimento
begin
writeln( x, ' + ', i, ' = ', i+x ); // mostra a tabuada
end;
end;
Begin
{inicio do programa}
writeln('Digite um número : '); //solicita que entre com um número
readln(num); //recebe o numero
clrscr; //limpa a tela
if (num>0) then //verifica se o numero é maior que zero
begin //se numero maior que zero
somar(num); // chama o procedimento
end //antes de um ELSE, não usa ponto e virgula
else //senao
begin
write('digite um numero maior que ZERO'); // solicita que se digite um num maior que zero
end;
End.
