1. написать программу, которая спрашивает «который час? » и, в зависимости от введенного времени, выводит на экран : «доброе утро», «добрый день», «добрый вечер», «спокойной ночи». 2. составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100. решить 2

1)
var x:integer;
beginwrite('который час? ');
read(x);
If (x>=0) and (x<6) then writeln('Спокойной ночи');
If (x>=6) and (x<12) then writeln('Доброе утро');
If (x>=12) and (x<18) then writeln('Добрый день');
If (x>=18) and (x<24) then writeln('Добрый вечер');
end.

2)
var a,b,x:integer;
beginwrite('введите рост: ');
read(a);
write('введите вес: ');
read(b);
x:=a-100;
if x>b then writeln('Нужно поправиться')
else
writeln('Нужно поxудеть');
end.