procedurę zagadka(n integer);
var i. k. 1: integer;
begin
1 for i := 1 to n - 1 do
2 for j := i + 1 to n do
3 for k := 1 to j do
end;
Wvkiad 5 Programowanie komputerów I 19