Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
1)Каждые 15 минут вставать из-за компьютера и делать зарядку для глаз (1 минута)
2)Не сутулится, увлекшись работой и позабыв обо всем, близко смотря в экран
3)Находится на безопасном для глаз расстоянии от экрана