Если не соблюдать технику безопасности может возникнуть замыкание и пожар или можно что-либо сломать себе, повредить технику. Основными являются - не вставать по время работы за компьютером, а так же не есть за компьютерным столом/не приносить еду в класс. Неправильная посадка может привести к искривлению и другим многочисленным проблемам, если при неправильной посадке зацепить какой-либо провод можно нанести вред технике и себе. Рекомендаций не знаю сорь, но можешь написать что нельзя есть за столом, раскачиваться на стуле и.т.д
program z1;
var o1,o2,o3:integer;
sr:real;
begin
repeat
write ('Введите 1 оценку ');
read (o1);
if (o1<2) or (o1>5) then writeln ('Ошибка')
until (o1>1) and (o1<6);
repeat
write ('Введите 2 оценку ');
read (o2);
if (o2<2) or (o2>5) then writeln ('Ошибка')
until (o2>1) and (o2<6);
repeat
write ('Введите 3 оценку ');
read (o3);
if (o3<2) or (o3>5) then writeln ('Ошибка')
until (o3>1) and (o3<6);
sr:=(o1+o2+o3)/3;
if sr<2.5 then writeln('Петя, ты двоечник по информатике')
else
if sr>4.5 then writeln('Петя, ты отличник по информатике')
else
if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')
else writeln('Петя, ты ударник по информатике')
end.