информатика 8 класс, срочно, помогите, ​

var amountLength, x, y, z: integer;

begin

   write('Введите, сколько сбежало гадюк: ');

   readln(x);

   write('Введите, сколько сбежало кобр: ');

   readln(y);

   write('Введите, сколько сбежало гюрз: ');

   readln(z);

   amountLength := x * 100 + y * 130 + z * 115;

   writeln('Общая длина ', amountLength, ' см');

end.