Если число, введенное с клавиатуры, четырехзначное и делится на 5, то выведите слово «SUCCESS», а иначе — «FAILURE» в паскале
program l; vara,b,c: longint;beginread(a);b:=a div 1000;c:=(a mod 1000) div 100;d:=(a mod 100) div 10;f:=a mod 10;
вот до чего я додумал а дальше не знаю
Хз может быть я не пробовал
ты к чемц
у*