Напишите программу вычисления значения выражения в паскаль:

PascalABC.NET

begin

 var t, k, m, l, x, y, n: double;

 Read(t, k, m, l, x, y, n);

 var z := Sqr((t * t - k * k) / (Sqr(Sqr(m)) - l * Sqr(Sqr(l +

   Sqrt(Abs((Sqrt(x) + y) / (n - Abs(x)) + 4));

 Println(z)

end.

1)

pass1 = input('Введите пароль: ')

pass2 = input('Введите пароль ещё раз: ')

if str(pass1) == str(pass2):

print('Доступ разрешён')

else:

print('Доступ запрещён')

2)

summ = int(input('Сумма покупки: '))

if summ < 800:

print('Скидка не предоставляется.\n' + 'Сумма покупки: ' + str(summ))

elif 1500 >= summ <= 800:

summ = summ - summ * 0.05

print('Скидка предоставляется в 5%\n' + 'Сумма покупки: ' + str(summ))

elif summ >= 1500:

summ = summ - summ*0.1

print('Скидка предоставляется в 10%\n' + 'Сумма покупки: ' + str(summ))

3)

a = int(input('Введите число: '))

if a > 0:

print('1')

elif a < 0:

print('-1')

elif a == 0:

print('0')

//Pascal
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x > y then
writeln(x - y)
else
 writeln(y - x);
end.

//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a > (b + c)) then
writeln(a)
else
writeln(b + c);
end.

//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k должен быть равен 1 или 2.');
end.

//4)
var p, m: integer;
begin
  write('Введите p, m: ');
  read(p, m);
  if p > m * 2 then
    writeln(p)
  else
    writeln(m * 2);
end.