Напишите программу, пожалуйста, на Pascal

uses crt; var x,y,s,z1,z2,c1,c2: real; beginwrite ('s='); read (s); write ('x='); read (x); write ('y='); read (y); s: =sqrt (s); write ('vvedite 1 koordinaty'); read (c1); write ('vvedite 2 koordinaty'); read (c2); z1: =s+x; z2: =s+y; if (c1 <= z1) and (c2 <= z2) and (c1>=x) and (c2>=y) thenwrite ('to4ka popala') elsewrite ('to4ka ne popala.'); read; end. Где с 1-первая координата, с 2-вторая, z1 и z2-вспомогательные точки) ну там разберешься)