Помогите с паскалем! Нужно сделать все задания

var a,b:real; begin write('Введите a,b через пробел: '); readln(a,b); writeln(a,'+',b,'=',a+b); writeln(a,'-',b,'=',a-b); writeln(a,'*',b,'=',a*b); writeln(a,'/',b,'=',a/b); end. var a,b,c,p,s:real; begin write('Введите a,b,c через пробел: '); readln(a,b,c); p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('S = ',S); end. var r,x1,x2,y1,y2:real; begin write('Введите x1,y1 через пробел: '); readln(x1,y1); write('Введите x2,y2 через пробел: '); readln(x1,y1); r:=sqrt(sqr(x2-x1)+sqr(y2-y1)); writeln('Растстояние между точками: ',r); end. var x,y,a,b:real; begin write('Введите кол-во кг ирисок и их стоимость через пробел: '); readln(x,a); write('Введите кол-во шоколадных конфет и их стоимость через пробел: '); readln(y,b); writeln('1 кг ирисок стоит ',x/a,' рублей.'); writeln('1 кг шоколадных конфет ',y/b,' рублей.'); if x/a > y/b then  writeln('Ириски дороже шоколадных конфет в ',(x/a)/(y/b),' раза.') else if x/a < y/b then writeln('Шоколадные конфеты дороже ирисок в ',(y/b)/(x/a),' раза.') else writeln('Цена на конфеты одинакова.'); end.