Напишите программу пересчёта расстояния их километров в вёрсты (1 верст = 1066, 8 м для паскаль abc

Var a: real; begin writeln('введите расстояние в километрах'); readln(a); a: =a*1000/1066.8; writeln(a); end.

program Number_of_mounth;

var month:byte;

begin

write('Введите номер месяца:');

readln(month);

if(month<1)or(month>12)then

writeln('Вы ввели неправильный номер месяца!')

else

begin

write('Название месяца:');

case month of

1:writeln('Январь');

2:writeln('Февраль');

3:writeln('Март');

4:writeln('Апрель');

5:writeln('Май');

6:writeln('Июнь');

7:writeln('Июль');

8:writeln('Август');

9:writeln('Сентябрь');

10:writeln('Октябрь');

11:writeln('Ноябрь');

12:writeln('Декабрь');

end;

write('Количество дней в месяце:');

case month of

1,3,5,7,8,10,12:writeln('31');

4,6,9,11:writeln('30');

2:writeln('28 или 29');

end;

write('Времягода:');

case month of

1,2,12:writeln('Зима');

3,4,5:writeln('Весна');

6,7,8:writeln('Лето');

9,10,11:writeln('Осень');

end;

if not (month=1)then writeln('Это не первый месяц в году');

if not (month=12)then writeln('Это не последний месяц в году');

end;

Объяснение:

Ошибка была в объявлении переменой а именно в начале блока бегин к переменой month задавался тип byte, это делает до начала блока в Var

var

 a, b, c, v: integer;  

 s, d1, d2: real;

begin

 Writeln('Введите А: ');

 Read(a);

 Writeln('Введите Б: ');

 Read(b);

 Writeln('Введите C: ');

 Read(c);

 V := a * b * c;

 Writeln('Результат "V:=a*b*c" = ', V);

 Writeln('Введите D1: ');

 Read(d1);

 Writeln('Введите D2: ');

 Read(d2);

 s := d1 * (d2 / 2);

 Writeln('Результат "s:=d1*(d2/2)" = ', s);

end.

Более вариант:

begin

 var (a,b,c):= ReadInteger3('Введите А B C: ');

 Println('Результат :', a*b*c);

 var (d1,d2):=ReadReal2('Введите D1 D1: ');

 Println('Результат: ', d1*(d2/2));

end.