Составить блок-схему и программу решения задачи на языке Pascal.

Блок-схема во вложении.var  x,y,c:double;begin  Write('x='); Read(x);  Write('y='); Read(y);  if x=y then c:=sqr(x+y)+sin(x)  else    if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)    else c:=x+y+tan(x);  Write('c=',c)end.Тестовое решение:x=0.563y=-1.514c=-0.319863379954563