AD1-Introdução

{

Escreva um programa em Pascal que leia do teclado um inteiro n,

maior ou igual a 1, e que apresente no video n linhas da forma abaixo.

Por exemplo, as seguintes linhas devem ser apresentadas se n = 5.

1 2 3 4 5

2 4 6 8

3 6 9

4 8

5

Se n < 1, uma mensagem de erro deve ser apresentada no video.

}

program quest_01_AD1(input{teclado}, output{video});

procedure ler_valor_n (var n{s}: integer);

begin

write(output, 'Informe valor de n: ');

readln(input, n);

if n < 1 then

writeln(output, 'O valor de n deve ser maior ou igual a 1.');

end;

procedure imprimir_linhas (n{e}: integer);

var

i,j,x: integer;

begin

for i:=1 to n do

begin

x := i;

for j:=n to i do

begin

write(output, x:5);

x := x + i;

end;

writeln(output);

end

end;

var

n: integer;

begin

ler_valor_n(n);

if (n >=1) then

imprimir_linhas(n);

readln;

end.