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

спасибо)

не за что

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.