program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
a:string;
b1:string;
b:array [1..100] of string;
i,c:integer;
begin
writeln('Upisi ime programa');
read(a);
writeln('koliko reci posle imena programa zelis da imas?');
read(c);
for i:=1 to c do
begin
writeln('Upisi ',i,' rec');
read(b[i ]); (this)
end;
writeln;
writeln('Ime programa je:',a);
writeln;
writeln('Niz reci posle imena programa su:');
for i:=1 to c do
begin
writeln(b[i ]);
end;
read(c);
end.