Расшифровать шифр, , 69705415673. я не знаю с какого шифра это расшифровать, но должно получиться предложение)

Var   a,b,c,x,y: real; begin   write('введите a и b: '); read(a,b);   repeat       write('введите c, не равное нулю: ');       read(c)   until c< > 0;   x: =2*sqr(a)-b/(3*c);   {   если вы относитесь к людям, ненавидящим скобки   и тех, кто решает ваши , то в вашем условии   на 3а делится все выражение, и тогда предыдущая строка   должна иметь вид x: =(2*sqr(a)-b)/(3*a);   }   if x> =0 then   begin y: =sqrt(x+sqr(c))+4*a*b; writeln('x=',x,', y=',y) end   else       writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение') end. тестовое решение: введите a и b: 3.4 -2.18 введите c, не равное нулю: 0 введите c, не равное нулю: 5.172 x=23.2605001288992, y=-22.5762191684909

Uses crt; var a: integer;     begin         clrscr;               readln(a);                   if (a mod  5=0)and(a mod 10=0)then                       writeln('кратное')                   else                         writeln('не кратно');     readkey; end.