алг вещ y(арг вещ а)
нач
знач:= 5 * a
кон
<основное тело программы>
function y(a: real): real;
begin
y:= 5 * a
end;
end.
