Написать алгоритм решения следующей : эвм спрашивает: «сколько вам лет? ». если ответ больше 100, то отвечает: «вы хорошо сохранились! ». в противном случае желает: «лет до 100 расти вам без старости! ». составить алгоритм

Var age:integer;
begin
   writeln('Сколько вам лет?');
   readln(age);
   if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
   if age>100 then writeln('Вы хорошо сохранились!') else writeln('Лет до 100 расти вам без старости!');
end.