Найти средний вес - Pascal ABC

var x,x1,x2,y,y1,y2,z,z1,z2,s1,s2,s3:real;
begin
write('Введите вес 1 человека в пудах x=');
readln(x);
write('Введите вес 2 человека в в фунтах y=');
readln(y);
write('Введите вес 3 человека в килограммах z=');
readln(z);
//в пудах
y1:=y/40;
z1:=z/16.38;
s1:=(x+y1+z1)/3;
//в фунтах
x1:=x*40;
z1:=z/15.38*40;
s2:=(x1+y+z1)/3;
//в килограммах
x1:=x*16.38;
y1:=y/40*16.38;
s3:=(x1+y1+z)/3;
write('Средний вес в пудах=',s1:0:2,' в фунтах=',s2:0:2,' в килограммах=',s3:0:2)
end.