Pascal - Érték visszaadó

i mod 4

a := 5 < 10;

y :=single((x * y));

x := 95 - 5;

not i

xmin := 0;