Помогите решить в Паскале. Плиз

uses crt; var a,b,c,x,y: integer; beginwrite ('vvedite 3 4isla'); read (a,b,c); x: =a mod c; y: =b mod c; if (x=0) and (y=0) thenwrite ('delits9') elsewrite ('ne delits9'); read; end.