Re: Wandystan: Re: Hej!

From: Ojek <bartosz.mackiewicz_usunto_at_hot.pl>
Date: Fri, 29 Aug 2008 20:00:02 +0200


Paweł Ciupak <pawel-ciupak_usunto_at_o2.pl> napisał(a):

> 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;

end.

Się kompiluje ;)

--
Ojek
Received 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