Символьная переменная - PascalABC.NET

Формулировка задачи:

1. С клавы выводит первое число 2. Выводит второе 3. Выводит слово обозначающие 'direct'либо'undirect'); 4 Если direct,то выводит результат равный частному от деления первого числа на второе Если undirect то наоборот P.S(Если делит на ноль, то должно вывести ошибку

Решение задачи: «Символьная переменная»

Листинг программы

var a,b,c:real;
    s:string;
begin
write('Введите первое число a=');
readln(a);
write('Введите второе число b=');
readln(b);
writeln('Введите команду direct или undirect');
readln(s);
if s='direct' then
 begin
  if b=0 then writeln('Ошибка, деление на 0')
  else writeln(a/b:0:2);
 end
else if s='undirect' then
 begin
  if a=0 then writeln('Ошибка, деление на 0')
  else writeln(b/a:0:2);
 end
else writeln('Введена неверная команда')
end.

Объяснение кода листинга программы

Объявлены три переменные типа real - a, b, c и одна переменная типа string - s.
Выводится сообщение с просьбой ввести первое число и сохраняющее его значение в переменной a.
Выводится сообщение с просьбой ввести второе число и сохраняющее его значение в переменной b.
Выводится сообщение с просьбой ввести команду direct или undirect.
Введенное значение сохраняется в переменной s.
Если введено значение direct, то выполняется блок кода:
1. Проверяется условие b=0.
2. Если условие истинно, то выводится сообщение об ошибке Ошибка, деление на 0.
3. Иначе выводится результат деления a/b, округленный до двух знаков после запятой.
Если введено значение undirect, то выполняется блок кода:
1. Проверяется условие a=0.
2. Если условие истинно, то выводится сообщение об ошибке Ошибка, деление на 0.
3. Иначе выводится результат деления b/a, округленный до двух знаков после запятой.
Если введено значение, не соответствующее ни direct, ни undirect, то выводится сообщение Введена неверная команда.