Var s: string;
<span>begin
</span><span> readln(s);
</span><span> writeln(s.ToWords.Sorted.JoinIntoString(' '));
</span><span>end.
</span>это строка для проверки
<span>для проверки строка это
</span>
Зрительная зрение глаза
звуковая слух уши
вкусовыя всус язык
обонятельная обоняние нос
осязателная осязание кожа
Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
Верный ответ под буквой B