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

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

1. Если каждое число рассматриваем как самостоятельноеvar  a,b:real;begin  Write('Введите два числа через пробел: ');  Read(a,b);  if a>10 then a:=a/10;  if b>10 then b:=b/10;  Writeln(a,' ',b)end.2. Если оба числа рассматриваем совместноvar  a,b:real;begin  Write('Введите два числа через пробел: ');  Read(a,b);  if (a>10) and (b>10) then begin a:=a/10; b:=b/10 end;  Writeln(a,' ',b)end.