Ребята, помогите пожалуйста!!!)))Что понимаете))очень надо1) Составьте программку, определяющую

3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If xgt;y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Возможная скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (agt;b) then writeln('Шофер не превысил скорость');
If alt;b then writeln('Шофер превысил скорость');
end.

Я надеюсь, что я верно сообразила задание первой и 2-ой задачки о: