Ответы:
1.а)
2.б)
3.б)
3.б)
Уверен на 80%
5 вопрос не понял
program Project1;
var s,s1,s2:string;
begin
Readln(s);
s1:=copy(s,3,3);
s2:=copy(s,1,2);
delete(s,1,3);
insert(s1,s,1);
insert(s2,s,2);
Writeln(s);
Readln
end.
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
Вариант три (надо 20 символов набрать))
Я надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
<span>end.</span>