Сделайте пожалуйста программу ** Паскале.

Question

Сделайте пожалуйста программу на Паскале.

---

Answer 1

Program E31;
var a, y: integer;
begin
  write('a = ');
  read(a);
  if a > 0 then y := 3
             else y := 6;
  write('y = ', y);
  readln;
end.