МНОГО ПУНКТОВ. (Линейное) Программирование. ПАСКАЛЬ

var a,b,c,s: integer; beginread (a); read (b); read (c); s: =(a+b+c) mod 3 mod вробная часть от деленияend; var post,Bes: real; beginread (post); Bes: =post-100 кг)=(рост (см) — 100end; var m,n,k: integer; beginread (m); read (n); read (k); o: =m*2+n*0+k*1end; var x: integer; beginread (x); if x mod 2=0 then write ('чот') else write ('нечет'); end; var x: integer; beginread (x); if x mod 10=7 then write ('на конце 7') else write ('не 7'); end; ///write (x) выводит значение переменой;