var a,b: real;
begin
readln(a,b);
if a*b<0 then writeln(a*b*2) else writeln(a*b*1.5);
end.
var
<span> a, h: </span><em>real</em>;
begin
readln(a, h);
writeln('S = ', 0.5 * a * h);
<span>end.
-----------------------------------
var
a, b, m: <em>real</em>;
begin
readln(a, b);
m := (a > 3 ? a + b : a - b);
writeln('m = ', m);
<span>end.
P.S. Учиться надо, а не тройки на сайтах выпрашивать...</span></span>
<span>На первое задание
4) разорви
5) намочи
6) изгрязни
7)высуши
8) положи
9) конец</span>
<span>в пачке было 42х листа формата А3.Каждый лист разрезали и получили 124х листов формата А4. В системе счисления с каждим основанием вели счёт?</span>
Ответ: В десятичной...