Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
<span>end.</span>
<span>С:\
</span>С:\мои документы
С:\<span>фильмы
</span>С:\фильмы\<span>интересный фильм.avi
</span>С:\мои документы\иванов
С:\мои документы\<span>петров
</span>С:\мои документы\иванов\<span>QBasic.exe
</span>С:\мои документы\иванов\<span>рисунки
</span>С:\мои документы\иванов\рисунки\<span>море.bmp
</span>На будущее, перефоткай страницу с этим заданием. Так ничего не понятно.
Тебя спасло, что она у меня на диске завалялась. Без той картинки это невозможно.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
Writeln(ReadReal('a=')*4,' - периметр')
end.
<u>Пример</u>
a= 12.7
50.8 - периметр