Мышь, Процессор, Принтер, Бумага, Калькулятор.
var a:integer;beginreadln (a);if (a>0) thenrepeat a:=a-3;until(a<0);
if (b<0) thenrepeat a:=a+2;until (a>70);
writeln (a);end.