Program pl;Var a,b:integer;procedure fl (x,y:integer);beginy:=2*x+3;end;procedure f2 (var x, y:integer);beginx:=3*y+1;end;beginfl(b,a)end.a:=2; b:=3;writeln (‘а=,a,’ b=’,b)end.

Смотрим, наблюдаем.

Program pl; // Называем программу "pl"

Var a,b:integer; // Объявляем переменные. То есть, например,  a -это место в памяти компа, мы присвоили ей тип интеджер, что дает нам права присваивать этой переменной исклчительно целочисленные значения, например, 2, -8

procedure fl (x,y:integer); // Создаем процедуру под названием fl. Что такое процедура? Набор действий, которые позже можно выполнить из этой процедуры.

begin

y:=2*x+3;

end;

procedure f2 (var x, y:integer);

begin

x:=3*y+1;

end;

begin

fl(b,a); Мы вызвали эту процедуру (fl) x присваиваем значение b, у значение а. Но так как к данному моменту а и b пусты, ничего не происходит...

end;

a:=2; b:=3;

writeln (‘а=,a,’ b=’,b) // Так как ваш препод не смог грамотно построить задачу, а, по-прежнему, равно 2, а б, по-прежнему, равно 3.

end.