Ahoj, nemohl by mi někdo poradit jak mam dat dohromady tuto proceduru v TP aby mi fungovala a ukazalo mi to na konec tu tabulku, dik moc.

Příklad: procedura, která vytvoří čáru skládající se z n pomlček '-' a odřádkuje:

procedure cara(n:integer);
var i:integer;
begin
for i:=1 to n do write('-');
writeln;
end;

Procedura, vypíše na řádek násobky čísla n. Řádek začíná a končí svislou čárkou '|'.

procedure nasobky(n:integer);
var j:integer;
begin
write('|');
for j:=1 to 10 do write(j*n:4);
writeln(' |');
end;

Po provedení programu:

cara(43);
for i:=1 to 10 do nasobky(i);
cara(43);

Dostaneme tento výsledek:

-------------------------------------------
| 1 2 3 4 5 6 7 8 9 10 |
| 2 4 6 8 10 12 14 16 18 20 |
| 3 6 9 12 15 18 21 24 27 30 |
| 4 8 12 16 20 24 28 32 36 40 |
| 5 10 15 20 25 30 35 40 45 50 |
| 6 12 18 24 30 36 42 48 54 60 |
| 7 14 21 28 35 42 49 56 63 70 |
| 8 16 24 32 40 48 56 64 72 80 |
| 9 18 27 36 45 54 63 72 81 90 |
| 10 20 30 40 50 60 70 80 90 100 |
-------------------------------------------