Помогите пожалуйста это информатика, задачи ** фото Буду благодарна

Question

Помогите пожалуйста
это информатика, задачи на фото
Буду благодарна

---

Comments

могу 2 и 3 сделать

---

буду благодарна если сделаете)

Answer 1

2)var  a,b:integer;begin  writeln('Введите значение a: ');  readln(a);  writeln('Введите значение b: ');  readln(b);  if a>b then  begin  writeln('a-b= ',a-b);  end  else  if b>a then  writeln('b-a= ',b-a);  end.
3)var  a:integer;beginfor a:=1 to 3 dobegin  writeln('Hello');end;end.

Comments

спасибо)

---

не за что