1)В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт.Ввести вагона.напечатать вид.2)Ввести 2 числа.

1)program zz1;
var n:integer; // вводим переменную целого типа
begin
write( введите номер вагона ); // вводим с клавиатуры число
read(n);
if ngt;9 // проверяем условие
then write( вагон купейный ) // выводим ответ
else write( вагон плацкартный );
end.
2)program zz1;
var a, b:integer; // вводим переменную целого типа
begin
write( введите 1-ое число ); // вводим с клавиатуры 1-ое число
read(a);
write( введите второе число ); // вводим с клавиатуры второе число
read(b);
if b = 0 // проверяем условие
then write( на ноль разделять нельзя ) // выводим ответ
else write( частное 2-ух чисел , a/b );
end.