Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.
Схема в Ecxel живая. Можете вводить свои данные.
Лист защищен без пароля, чтобы случайно не повредить функции.
Логические Функции отображаются в строке формул.
Var s :string;
i :integer;
begin
writeln('введите переменную');
readln(s);
for i:=(Length(s)) downto 1 do write (s[i]);
<span>end.</span>
Вот, пользуйся. Только не спались
Программа на скрине! Надеюсь помог!