> Nie wiem, czy zadziała, ale kardynalne błędy poprawione.
program aborcjusz;
var x,y:integer;
tajnehaslo:array[1..11] of char;
procedure struszynski(numer:integer);
begin
writeln(tajnehaslo[numer]);
end;
begin
tajnehaslo[1]:='W'; tajnehaslo[2]:='Y'; tajnehaslo[3]:='P'; tajnehaslo[4]:='I'; tajnehaslo[5]:='E'; tajnehaslo[6]:='R'; tajnehaslo[7]:='D'; tajnehaslo[8]:='A'; tajnehaslo[9]:='L'; tajnehaslo[10]:='A'; tajnehaslo[11]:='J';
for x:=1 to 10 do
begin for y:=1 to 7 do
begin
struszynski(y);
end;
end.
Się kompiluje ;)
-- OjekReceived on Fri 29 Aug 2008 - 11:00:11 CEST
This archive was generated by hypermail 2.4.0 : Wed 08 Jan 2020 - 17:31:24 CET