От версии Windows.
Если посмотреть то видно что на каждой версии-курсор разный.
Program oplata;
var a,b:integer;
begin
writeln('Введите стоимость ');
readln(a);
writeln('Введите оплату ');
readln(b);
if a=b then writeln('спасибо')
else if a>b then writeln('добавьте денег')
else writeln('возьмите сдачу')
<span>end.</span>
Вот.
О плюсах и минусах суди сам(а).
Просто умножай каждое число на 2
32 64 128 256 512 1024 и так далее
begin
var a := ArrRandom(10, 1, 9);
a.Println;
Println('Кол-во чисел, равных max:',
a.FindAll(p -> p = a.Max).Count)
end.