Помогите пожалуйста умоляю пожалуйста не поможете два будет за четверть

1

Ответы и объяснения

2014-03-11T09:05:01+04:00
var
  a, h: real;
  
begin
  readln(a, h);
  writeln('S = ', 0.5 * a * h);
end.
-----------------------------------
var
  a, b, m: real;
  
begin
  readln(a, b);
  m := (a > 3 ? a + b : a - b);
  writeln('m = ', m);
end.

P.S. Учиться надо, а не тройки на сайтах выпрашивать...
а по русски?
Что?
задачу
Так вот же, паскаль, самый распространённый, понятный и теперь уже полупрофессиональный йазык
Или на КуМИРе?