даны 3 переменные,составить программу:если все они =;выдает сообщение:переменные=,в противном случае каждую из них увеличь на 10

Вопрос школьника по предмету Информатика

даны 3 переменные,составить программу:если все они =;выдает сообщение:переменные=,в противном случае каждую из них увеличь на 10

Ответ учителя по предмету Информатика

Program n1;

var a,b,c: real;

begin

readln(a,b,c);

if (a=b) and (a=c) and (c=b)

then writeln(‘переменные =’)

else

begin

a:=a+10;

b:=b+10;

c:=c+10;

end;

end.