Информатика нужно составить алгоритм даю 30

var     age, height, ideal_weight: real; begin     readln(age, height);          ideal_weight := height - 100;     if age < 20 then         ideal_weight := ideal_weight - 5     else if age > 45 then         ideal_weight := ideal_weight + 5;          writeln(ideal_weight); end.