Question

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

Answer 1

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. Учиться надо, а не тройки на сайтах выпрашивать...

Answer 2

а по русски?

Answer 3

Что?

Answer 4

задачу

Answer 5

Так вот же, паскаль, самый распространённый, понятный и теперь уже полупрофессиональный йазык

Answer 6

Или на КуМИРе?