Составь и запиши программу на языке Паскаль, которая, если введенное число отрицательное и кратно 4, меняет его на противоположное.
Дано целое двухзначное число. Вывести на экран "Первое больше", если цифра десятков больше цифры единиц решается четвертная и годовая оценка писать программами на паскале
1)
var i:integer;
Begin
readln(i);
If (i < 0) and (i mod 4 = 0) then i:= i * -1;
write(i);
End.
2)
var i: integer;
Begin
readln(i);
if (i div 10) > (i mod 10) then write('Первое больше');
End.