/<u>/ PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
<u>Примеры</u>
Введите число: 121.121
True
Введите число: 12.11999
False
2*16*1000*24*5*60 бит=(2*16*1000*24*5*60)/2^23 Мбайт=28,23 Мбайт=28 Мбайт
File:///C:/Users/Алексей/Downloads/Pascal%20(краткий%20курс)%20—%20wikilic%20(1).htm
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
uses Crt;
begin
Writeln('+--------+---------+');
Writeln('| In | Out |');
Writeln('+--------+---------+');
end.