1.Составить схему алгоритма вычисления значения: x=a+b при a>b, x=a*b, при a<=b. 2 Составить алгоритм решения задачи в виде блок-схемы. Рассчитать площадь и периметр прямоугольника по двум известным сторонам. Формулы для решения этой задачи: S=ab, P=2(a+b)

program z1;

var x,y: real;

begin

writeln('vvedite x i y');

readln(x,y);

if y=5*x*x-7*x+2 then

writeln('yes');

else

writeln('no');

end;

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.