<em>// PascalABC.NET 3.2, сборка 1403 от 16.03.2017</em>
begin
var i:=10;
while i>=1 do begin
Writeln(i);
Sleep(1000); // пауза 1с
i:=i-1
end;
Writeln('Пуск!')
end.
<u>Результат</u>
10
9
8
7
6
5
4
3
2
1
Пуск!
При условии если даны переменные a, b
а)
var t : integer := a;
a := b;
b:=t;
б) (a, b) := (b, a);
Только мышь относится к устройствам ВВОДА информации.
Принтер и Монитор это устройства ВЫвода.
Видеокарта вообще обработки информации