Question

Program mybost;
var d,m:Integer;
begin
read(d,m);
if(d>m) and (d=m)
then writeln('Дима старше Маши');
else('Маша старше Димы') and ('Дима и Маша ровесники');
end.
пишет ошибка: встречено else ,а ожидалось оператор, меняю все и не получается​

Answer 1

• Program Brainly;
• Var d,m:Integer;
• Begin
• Write('Введите возраст Димы: ');
• Read (d);
• Write('Введите возраст Маши: ');
• Read (m);
• if (d>m) then Writeln('Вывод: Дима старше Маши.');
• if (d=m) then Writeln ('Вывод: Дима и Маша ровесники.');
• if (d<m) then WriteLn('Вывод: Маша старше Димы.');
• end.

Сделал немного по-другому, но на результат программы это никак не влияет.