Написать программу на языке pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.

Var
  a,b,c,max:real;
begin
  Write('Задайте три числа: ');
  Readln(a,b,c);
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  Writeln(ln(c))
end.

program калькулятор;

var

a,b,c,d,e,f,q: real;

begin

writeln ('введите число a: ');

readln(a);

writeln ('введите число b: ');

readln(b);

writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление');

readln(q);

if (q=1) then begin

d: =a+b;

writeln('ваш результат: ',d);

end;

if (q=2) then begin

f: =a-b;

writeln('ваш результат: ',f);

end;

if (q=3) then begin

c: =a*b;

writeln('ваш результат: ',c);

end;

if (q=4) then begin

e: =a/b;

writeln('ваш результат: ',e);

end;

end.

Program калькуляторvara,b,c,d,e,f,g,h,i,j,k,l: integer; beginwriteln ('введите число a: '); readln(a); writeln ('введите число b: '); readln(b); writeln(выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление'); readln(q); c: =a*b; d: =a+b; e: =a div b; (так будет программа выдавать целую часть от деления. например 7: 2 будет равно 3. если хочешь чтобы показывало 3,5 то тогда сделай real и поставь /) f: =a-b; if (q=1) thenwriteln('ваш результат',d); if (q=2) thenwriteln('ваш результат',f); if (q=3) thenwriteln('ваш результат',c); if (q=4) thenwriteln('ваш результат',e); end.