begin Read(m,n); d:=m mod 10 - n mod 10; if d<0 then Writeln('У 1-го числа разряд единиц меньше') else if d>0 then Writeln('У 2-го числа разряд единиц меньше') else Writeln('У обоих чисел разряды единиуц равны') end.
Program z1; var a,b,c,s,p:real; begin writeln('введите три стороны треугольника'); readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-c)*(p-b)); writeln(s); end.