Плутон(Это планета карлик)
Или Уран Если у вас не считают плутон
Расход бензина дается на 100 км, поэтому:
sum:=s*2*r*c/100;
Ошибка:
<span>CharMas1=array[A..Z] of integer;
Здесь используются неизвестное имя A и Z,которые,предварительно должны быть описаны в const,либо в var
</span>
Program pr;
uses crt;
Var a, x1, x2, x3, x4:integer;
Begin
Writeln('введите 4-х значное число');
readln(a);
x1:=a div 1000;
x2:=(a mod 1000) div 100;
x3:=(a mod 100) div 10;
x4:=a mod 10;
Writeln(x1);
Writeln(x2);
Writeln(x3);
Writeln(x4);
readln;
end.