Программа на паскалеprogram chisla; var a,b,c:integer; begin readln(a);//вводим а readln(b);//вводим b readln(c);//вводим с if((a=c) and (b=c)) then //проверяем равны ли числа writeln('Chisla ravni')//пишем да если равны else //иначе writeln('Chisla ne ravni');//нет readln(); end.
Программа на паскалеprogram chisla;
var a,b,c:integer;
begin
readln(a);//вводим а
readln(b);//вводим b
readln(c);//вводим с
if((a=c) and (b=c)) then //проверяем равны ли числа
writeln('Chisla ravni')//пишем да если равны
else //иначе
writeln('Chisla ne ravni');//нет
readln();
end.