Хелп вариант 1 номер 2 паскаль

Question

Хелп вариант 1 номер 2 паскаль

---

Answer 1

Program asd;
Var s,x,x1:integer;
begin
read (x,x1);
if (x mod 2=0) and (x1 mod 2=0)
then s:=(x+x1)/2
else s:=s:=(x-x1)/2
end.


Program vtoroeZad;
Uses crt;
var x:integer;
begin
if (x div 100)>(x mod 10)
then write ('da')
else write ('net');
end.