unit dziewczyna;

interface;
   procedure dziew(a,b,c:string);
implementation;
begin
write('podaj pierwsze imie');
readln(a);
writeln('podaj drugie imie');
end