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

1) program zz1;

var n:integer; / / вводим переменную целого типа

begin

write (' введите номер вагона '); / / вводим с клавиатуры число

read (n);

if n>9 / / проверяем условие

then write (' вагон купейный ') / / выводим ответ

else write (' вагон плацкартный ');

end.

2) program zz1;

var a, b:integer; / / вводим переменную целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if b = 0 / / проверяем условие

then write (' на ноль делить нельзя ') / / выводим ответ

else write (' частное двух чисел ', a/b);

end.