Вычислить значения выражения;

а) sqr(x)+sqr(y)<=4 при х=0.3, у=—1.6;

б) к mod 7=k div 5—1 при k = 15.

  program qqq; 
 var x,y,s:real;
  begin  x:=0.3;
  y:=-1.6; 
s:=sqr(x)+sqr(y);
  writeln('s=',s); 
 end.

 если это две разные программы должны быть, то это 1-ая