var
s: string;
begin
readln(s);
write(s.Split(' ')[0], ' ');
foreach s1: string in s.Split(' ') do
if (s1 <> s.Split(' ')[0]) then
write(s1, ' ');
<span>end.</span>
===== PascalABC.NET =====
begin
var R := ReadReal('Введите радиус цилиндра:');
var h := ReadReal('Введите высоту цилиндра:');
var S := 2 * Pi * R * h;
Writeln('Площадь боковой поверхности цилиндра ', S:0:5)
end.
Это процедура реверса массива. То-есть первый элемент становится последним, а последний становится первым. Второй элемент становится n-1 элементом, а n-1 вторым. И так дале. У вас масси зеркально отобразится.
Например twitter.Очень популярное приложение для размещения мыслей.также подходит и ВК