{Zadanie prikladu 1: Napis program, ktory nacita retazec (string) zadany na klavesnici a vypise ho na obrazovku.}

program vypis;
uses crt;
var
 text: string;
 i, dlzka: integer;
begin
  clrscr;
  writeln('Zadaj text: ');
  readln(text); 	     {nacitanie vstupu}
  dlzka:= length(text);
  writeln;
  writeln('Zadali ste text: ');
  for i:= 1 to dlzka Do
    begin
       write(text[i]);	     {vypisanie vystupu}
    end;
  readln;
end.