Как по мне номер второй...
Удачи тебе!!!)
Program n1;
var a,b: integer;
begin
readln(a,b);
writeln('срзнач: ',(a+b)/2);
write('сргеом: ',sqrt(a*b));
end.
Var
k, N: Integer;
begin
Write("N = ");
ReadLn(N);
k:=1;
Repeat
Dec(N);
k:=k * 2;
WriteLn(k - 1);
Until (N < 0)
end.
Первое выражение выведет true (1), поскольку x>0
Второе выражение выведет false (0), поскольку х не <0
//Больше всего проблем доставил звук
uses graphABC;
var
x , y : integer;
s : string;
begin;
x:= 1;
y:= windowheight-20;
s:= 'Важное сообщение';
while x<>windowwidth do
begin;
textout(x,y,s);
inc(x);
sleep(50);
clearwindow;
end;
system.Console.Beep(500,1000);
sleep(1000);
system.Console.Beep(500,1000);
<span>end.</span>