Исправьте ошибки: Program oshibki;
var a, b: integer;
x, y: real;
begin
a := 3
12 := x;
b := 2.9;
x := 4*(a + y);
a := b + x
end.

Python 3.6

a = [int(i) for i in input().split()]

ab = abs(a[1] - a[2])

if ab > 180:

   ab = 360 - ab

if ab % a[4] == 0:

   x = ab // a[4]

else:

   x = ab // a[4] + 1

if a[0] % a[3] == 0:

   x += a[0] // a[3]

else:

   x += a[0] // a[3] + 1

print(x)

PascalABC.NET 3.5.1

program who;

var a, b, ab, t: integer;

 d, s, x: LongInt;

begin  

 read(d, a, b, s, t);

 ab := abs(a - b);  

 if ab > 180 then

   ab := 360 - ab;  

 if ab mod t = 0 then

   x := ab div t  

 else  

   x := ab div t + 1;  

 if d mod s = 0 then  

   x := x + d div s  

 else  

   x := x + d div s + 1;  

 write(x);

end.

Объяснение:

Думаю по коду поймешь

Увы, нет.

...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:

var a:array [1..n] of real;                                                                                  Procedure ab(var b:array [1..n] of real);

К сожалению переменная и формальный параметр не одного типа.

Стоит использовать Type:

type ba= array [1..n] of real;                                                                                  var a: ba;                                                                                                   Procedure ab(var b:ba);