1) 4)
PS
3 не понял, то программные архиваторы, то программное архивирование.
program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
readln(a);
writeln ('введите значение для переменной b');
readln(b);
if a>b then
begin c:=1; d:=2; end
else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;<span>
end.</span>
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
Открываешь любую документацию по HTML немного изучаешь и делаешь примитивную страницу
Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду