<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
Пуск!
SSD, HDD, Flash, SD cards
Var
a:real;
begin
write('Write amount in cm: '); readln(a);
writeln('In meters: ',a/100:0:4);
writeln('In kilometers: ',a/10000:0:4);
readln
end.