Синформатикой 1)tur=10; m=85; if tur< 10; m=m+tur; print(m) 2) dat=2; m=0; if dat > 3; m=m+1; print(m) 3) dat=771; m=771; if dat[k] > =m then; begin, m: =dat; end; writeln(m)

"звенелки"                                                "будилки"

колокольчик                                              будильник

звонок(дверной)                                  настенные часы

колокол                                                                      музыка у соседей))

треугольник(музыкальный)                телефонный звонок

домофон                                                                          петух

var a: integer;

begin

  writeln('введите четырехзначное число');

  readln(a);

  if a div 1000= mod 1000) mod 100) mod 10) then writeln('верно') else writeln('не верно');

end.