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

Question

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

---

Answer 1

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.