турбопаскаль

[Kassbohrer]

Данны целые числа K, L. Если числа не равны, то заменить каждое из них числом, раным наибольшему из исходных, а если равны и отрицательны, то возвести их в квадрат, если равны и неотрицательны, то увеличить их значение в 2 раза.

Нужно написать текст программы. Помогиет плиз я просто паскаль не понимаю)))

[Mad_Cat]

if k>l then l:=k;
if l>k then k:=l;
if (k=l) and (k<0) then begin l:=sqr(l);k:=sqr(k);end;
if (k=l) and (k>0) then begin l:=2*l;k:=2*k;end;

[Kassbohrer]

спасибо большое

[RUSt88]

function Max(a, b: integer): integer;
begin
  if a > b then 
    result := a
  else
    result := b;
end;

если K <> L то
  K := Max(K, L);
  L := K;
end
еще если (K = L) и (K < 0) и (L < 0) то
  K := sqr(K);
  L := sqr(L);
end
еще если (K = L) и (K > 0) и (L > 0) то
  inc(K, K);
  inc(L, L);
конец

ну вот в принципе все, тут осталось только пару слов воткнуть на языке паскаль, то бишь заменить если, еще, конец )))

[RUSt88]

аа, опоздал ((

[Kassbohrer]

RUSt88 тебе тоже спасибо что помог)

[Joker_vad]

Эх. Ну когда то же надо начинать понимать

program lab;
uses crt;
var a,b:integer;
begin
clrscr;
write('Введите два числа ');readln(a,b);
if a<>b then
if a>b then b:=a
else
a:=b
else
if a<0 then
begin
a:=a*a;
b:=b*b;
end
else
begin
a:=a*2;
b:=b*2;
end;
writeln(a,b);
readln;
end.

я вообще