ПАСКАЛЬ АВС: ПРОБЛЕМА С СУММАТОРОМ Пытаюсь сделать сумматор чисел, хочу сделать, чтобы 3-е слагаемое можно было добавить на выбор: словами "Да" или "Нет" (в программе вместо слов цифры через переменную char), почему-то поле ввода пропадает на этапе выбора. Укажите где ошибка и как ее исправить, отдельно отблагодарю за приложение примера работающей программы. Заранее

program summator;

uses

crt;

var

a, b, c, s: real;

var

cmd: string;

begin

writeln('Сумматор v.2.0 активирован');

writeln;

writeln('Введите первое слагаемое:');

readln(a);

writeln('Введите второе слагаемое:');

readln(b);

writeln('Хотите добавить третье слагаемое?');

writeln(' ("Да" либо "Нет")');

readln(cmd);

if (cmd = 'Да') or (cmd = 'да') then

begin

writeln('Введите третье слагаемое:');

readln(c);

s := a + b + c

end

else

s := a + b;

writeln('Сумматор выполнил задачу: ', s);

readln;

end.