ПОМОГИТЕ!!!!!!!!!!

В программе Паскаль составить программу
Даны 2 числа .
Если числа больше 10,то уменьшить их в 10 раз , то есть оставить без изменений.

1. Если каждое число рассматриваем как самостоятельное

var
  a,b:real;
begin
  Write(Введите два числа через пробел: );
  Read(a,b);
  if agt;10 then a:=a/10;
  if bgt;10 then b:=b/10;
  Writeln(a, ,b)
end.

2. Если оба числа рассматриваем совместно

var
  a,b:real;
begin
  Write(Введите два числа через пробел: );
  Read(a,b);
  if (agt;10) and (bgt;10) then begin a:=a/10; b:=b/10 end;
  Writeln(a, ,b)
end.