נושא: pascal-שאלה

למשל: אם הגובה 4.65 מ' והמשקל שלו 64 ק"ג-לאדם אין נטיה להשמנה מפני ש-64 קטן מ-65

אם הגובה 1.65 מ' והמשקל שלו 67 ק"ג- לאדם זה יש נטיה להשמנה מפני ש-67 גדול מ-65

כתוב תוכנית שקולטתגובה ומשקל של אדם ומדפיס את ההודעה :"לא נוטה להשמנה" אם אין נטיה להשמנה, ו- "נוטה להשמנה" אם יש נטייה להשמנה.

program Fat;
var x:integer;
    y:real;
begin
writeln('enter youre height:');
readln(y);
writeln('enter youre weight:');
readln(x);
if frac(y) < (X) then writeln('not turning fattening');
if frac(y)>(X) then writeln('turning');
readln;
end.