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

Question

Ребята, помогите пожалуйста!!!)))Что знаете))очень надо
1) Составьте программу, определяющую превысил ли водитель допустимую скорость на участке дороги
2)Составьте программу, определяющую является ли треугольник с заданными сторонами равносторонним. Примечание: составное условие на языке паскаль записывается следующим образом: союзу или соответствует OR союзу и соответствует AND
3) Составьте программу, которая находит наибольшее из 2 заданных чисел.

Answer 1

3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>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 (a>b) then writeln('Водитель не превысил скорость');
If aend.

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