program pengukur berat badan ideal

Program pengukur berat ideal:


usues crt;
var
x,y,z,w:real;

begin
clsrscr;
write('masukkan tinggi badan;')
read (x);
y:=x-100;
z:=y*10/100;
w:=y-2;
writeln('jadi berat badan idealnya adalah;',w;y;z);
read key;
end.