Составить программу для ввода строки символов с клавиатуры в буфер и вывод этой строки на экран

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

 

Const   n = 200; var   a: array[1..n] of integer;   i, s: integer; begin   randomize;   writeln('элементы массива, кратные трем: ');   s : = 0;   for i : = 1 to n do   begin       a[i] : = random(301)-150;       if (a[i] mod 3)=0 then write(a[i],' ');       if a[i]> 0 then s: =s+a[i]   end;   writeln;   writeln('сумма положительных элементов равна ',s) end. тестовое решение: элементы массива, кратные трем: -144 27 -15 135 129 -114 33 66 -15 135 -3 105 -129 -6 -60 21 -108 -78 -123 93 -51 -60 -120 27 129 -33 -30 -66 -39 6 51 141 -75 -30 48 -90 87 -39 18 -45 144 -120 75 -111 6 72 -42 114 -27 120 -144 -120 96 135 -24 -9 141 -93 111 15 сумма положительных элементов равна 7980

Program dr; var   a,b,c,d,x,x1,x2: real; begin   read(a,b,c);   d: =b*b-4*a*c;   if d< 0 then writeln ('корней нет')   else       if d=0 then begin x: =-b/(2*a); writeln(x); end       else begin           x1: =(-b-sqrt(d))/(2*a);           x2: =(-b+sqrt(d))/(2*a);           writeln(x1);           writeln(x2)       end end.