запусти несколько бесконечных циклов, и комп 100% висанет
Как-то так
алг
нач
цел н
ввод н
вывод н * (н + 1) / 2
кон
Мышь, клава, микрофон, вебка, джойстик, сканер (если это он в нижнем правом углу)
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.
Вроде так. Нет возможности проверить.