Написать 2 программы в паскале

Задание 1:var x,y: integer; begin    readln(x);    if x < 0 then y := -x      else y := sqr(x);    writeln(y); end.Задание 2:

Включая 0:

var i, n: integer; begin    repeat        readln(i);        if i.IsOdd then n += 1;    until i = 0;    writeln(n); end.

Не включая 0:

var i, n: integer; begin    repeat        readln(i);        if (i.IsOdd) and (i<>0) then n += 1;    until i = 0;    writeln(n); end.