Prie to pačio, jei kam įdomu, pateikiu jums tą pačią programą tačiau užrašyta truputį kitaip :). program didziausias_skaicius;
var x,y,z,d:real;
begin
readln(x,y,z,d);
if (x > y) and (x > z) then writeln('Didziausias skaicius', x:6:2)
else if(y > x) and (y > z) and ( y > d) then writeln('Didziausias skaicius', y:6:2)
else if (z > x) and (z > y) and ( z > d) then writeln('Didziausias skaicius', z:6:2)
else if (d > x) and (d > y) and (d > z) then writeln('Didziausias skaicius', d:6:2);
readln();
end.
P.s jei neveikia pakeiskite readln į read.