Экономика
Нельзя преобразовать тип integer к char. Как это исправить?
Var
F, L, R, S : char;
a, b : integer;
begin
a :=0;
b :=0;
F :=1;
L :=0;
R :=0;
S :=0;
Assign(input,'input.txt');
Reset(input);
Assign(output,'output.txt');
Rewrite(output);
Read(F,L,R,S);
if F then
begin
a :=a+F
end;
if L then
begin
b :=b+L
end;
if R then
begin
b :=b-R
end;
if S then
begin
a :=a+S;
b :=b+S
end;
write(a,b);
End.
