Program pozdrav.pas
  uses DOS;
  var S:string[40];
begin
  S:=GetEnv('QUERY_STRING');
  writeln('Content-type: text/html');
  writeln;
  S:=Copy(S,6,lenght(S)-5);
  write('     Vitam Ta, ');
  write(S,' na svojej stranke.    ');
end.