[Pascal] В чем ошибка?

[Demonstator]

Модуль

unit zip1;
interface
procedure yyy(var s,t,y:real);
function z(a,b,c:real):real;
implementation
procedure yyy;
var
begin
// вычисление выражения с помощью функции z(a,b,c)
// (-3*t+1,-2*s,1.8*t) и (2.6,s,3*t+s) - фактические параметры
y:=z(-3*t+1,-2*s,1.8*t)+z(2.6,s,3*t+s);
end;
// заголовок функции z; a, b, c - формальные параметры
function z:real;
begin
// вычисление значения функции
z:=(abs(a)+abs(b)+abs(c))/(a*a+b*b*b+c*c*c*c);
end;
end.


Прога
program P;
uses zip1;
var s,t,y:real; // описание переменных
begin
// ввод переменной s (с подсказкой)
write('s = ');
readln(s);
// ввод переменной t (с подсказкой)
write('t = ');
readln(t);
writeln('y = ',y); // вывод результата на экран
end.

Ввожу s=1.2 t=-3.7 должно быть y=0.01150 а он выдает 0

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[evg_m]

вы НИЧЕГО не вычисляете.

y:=yyy(...);

[Demonstator]

а можно уточнить в каком месте

[evg_m]

ПОСЛЕ ввода, но ДО вывода.

[p51x]

write('t = ');
readln(t);
writeln('y = ',y); // вывод результата на экран

Вот вы и покажите, где после ввода переменной и до вывода результата, вы результат вычисляете.

[Demonstator]

y:=z(-3*t+1,-2*s,1.8*t)+z(2.6,s,3*t+s); вставил но он вычислят не правельно