Здрасти, помогите написать код к задаче на делфи. Задача: Надано два

Как обязана смотреться программка?

Консольная программка, просто вводишь любые числа и оно тебе оприделяет значения х и y

Так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
     readln(a, y);
     if (a gt; y) then
     begin
          x := a / 100;
          writeln(x);
     end;
     if (a lt; y) then
     begin
          k := 100 * абс(a);
          writeln(k);
     end;
end.