Question

Срочно, помогите пожалуйста.
1) Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру одновременно в одной программе.

Answer 1

{Эта рабочая 100% :3}

var n: string;

procedure foo(str: string);

begin

writeln(str);

end;

function foo1(str: string): string;

begin

foo1:= str;

end;

begin

foo('I am a procedure');

n:= foo1('I am a function');

writeln(n);

end.