Компьютер может быть и друг, и враг. Он может помочь, а может навредить. Компьютер по большей части опасен, по моему мнению, чем полезен. Ведь его минусов гораздо больше, чем плюсов. Минусы: Портиться зрения, затягивает, присутствие нецензурной лексики. К сожалению плюсов будет гораздо меньше: научные сайты, ход всех новостей и известий, нужные гаджеты. В наше время и уже вданный момент компьютер - это часть нас и мы становимся зависимы от него. Не будь зависимым человеком, не стирай грань игры и жизни. Иди гуляй.
Надо расширить квадрат в настройках или на экрана или скачай fraps или bandican
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.