B:=5.8
A:=-7.9
Сначала мы присваиваем значение A:=5.8 и B:=-7.9
Потом мы присваиваем значение B к A и A к B
Практически при помощи органов зрения -90\%
при помощи слуха - 9\%
и только приблизительно 1\% при помощи остальных органов ( осязания, обоняния , вкуса)
Якщо я правильно зрозумів, тоді це має бути так ↓
Var n:integer;
begin readln(n);
if n mod 10 = 0 then write(2) else write(1);
<span>end.</span>