данное в условии число является шестнадцатеричным. Переведем его в десятичную систему счисления, записав в стандартном виде
E*16^3+4*16^2+1*16^1+A*16^0+1*16^-1+2*16^-2
Вместо буквы Е подставим число 14, а вместо буквы А подставим число 10, перемножим и получим ответ 58394,0703125
//Не смотрел Ваш код, просто моё видение решения задачи
//PascalABC.NET 3.2 сборка 1318
Var
t:text;
x,y,i,j:integer;
s:string;
c:char;
world:array[1..4] of char=('E','S','W','N');
begin
j:=1;
c:='E';
assign(t,'input.txt');
reset(t);
read(t,s);
close(t);
i:=1;
while s[i]<>'S' do
begin
if s[i]='R' then
begin
if c='N' then j:=1 else inc(j);
c:=world[j];
end;
if s[i]='L' then
begin
if c='E' then j:=4 else dec(j);
c:=world[j];
end;
if s[i]='F' then
case c of
'E':inc(x);
'S':dec(y);
'W':dec(x);
'N':inc(y);
end;
inc(i);
end;
assign(t,'output.txt');
rewrite(t);
write(t,x,' ',y);
close(t);
end.
Пример содержимого input.txt:
FLFS
Пример содержимого output.txt:
1 1
1 Ученик источник доска информационный канал 2 Боря источник газета инф. канал 3 радио источник Оля приемник 4гена источник мама приемник информационный канал телефон ВРОДЕ ТАК
Если нужна программа только под д),то вот:
Program n6;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
<span>end.</span>
Program gt;
var x1,x2,y1,y2:integer;
begin
readln(x1,y1,x2,y2);
if ((abs(x1-x2)<=1)and(abs(y1-y2)<=1))then writeln('YES')else
writeln('NO');
end.