Я думаю, что это кнопка "пуск".
Program chik;
var a,b:string;
i,l:integer;
begin
readln(a);
b:='';
l:=length(a);
for i:=1 to l do
begin
b:=b+a[i]+' ';
end;
writeln(b);
end.
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
WriteLn('Vvedite nomer bileta: ');
ReadLn(n);
m1:=n div 1000;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
s1:=n1+n2+n3;
m2:=n mod 1000;
n4:=m2 div 100;
n5:=m2 mod 10;
n6:=(m2-n4*100-n5) div 10;
s2:=n4+n5+n6;
if s1=s2 then WriteLn('Bilet schaslivyi')
else WriteLn('Bilet ne schaslivyi');
ReadLn
END.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));
var imax := a.IndexMax;
Writeln('Первое максимальное число ', a[imax],
' имеет номер ', imax + 1)
end.
<h2>Пример</h2><h3>Количество чисел? 5</h3><h3>Вводите: 14 2.17 15.2 8 15.2</h3><h3>Первое максимальное число 15.2 имеет номер 3</h3>