над обєктами у програмних середовищах можна виконувати дії а)редагування б)форматування в)створення г)збереження​

var
  s:string;
  i:integer;
begin
  Write('Введите слово: '); Readln(s);
  for i:=Length(s) downto 1 do Insert(' ',s,i);
  Writeln('Результат: ',s)
end.

Пример решения
Введите слово: Паскаль
Результат:  П а с к а л ь

var
  s1,s2,s3:string;
  i:integer;
begin
  Write('Введите первое слово: '); Readln(s1);
  Write('Введите второе слово той же длины: '); Readln(s2);
  s3:='';
  for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
  Writeln('Результат: ',s3)
end.

Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60