Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>
Вставь чистый DVD диск в привод и запиши образ на диск, потом с диска поставишь игру на комп.. .
<span>Или установи Daemon Tools и монтируй игру в виртуальный привод... начнется установка игры</span>
1. антивирусная защита
2.архиватор
3.программа для записи дисков
3.офисный пакет
4.программа для просмотра видео
5.интернет браузер
6.утилиты.
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.