Напишите программу,молю ,34 в 17 вагонов. с 10 по 17 вагонов купейные, а остальные-плацкартные. ввести с клавиатуры номер вагона. напечатать его вид.

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger('№ вагона:') > 9 then Print('Купейный')

 else Print('Плацкартный')

end.

Program kwajld;
uses CRT;
var a:integer;
begin
writeln('Введите номер вагона');
readln(a);
if (a<10)
then writeln('Плацкартный')
else writeln('Купейный');
end