Find the arithmetic mean and geometric mean of two numbers. Write a program (Pascal)

program zz1;

var

a, b: real; // set variables of non-integer type

begin

writeln (‘Enter two numbers:’);

readln (a, b); // enter two given numbers from the keyboard

writeln (‘The arithmetic mean of numbers’, a, ‘and’, b, ‘equals’, (a + b) / 2: 5: 2); // display the first answer in the format of five characters for the whole number and two characters after the dot

writeln (‘Geometric mean’, a, ‘and’, b, ‘equals’, sqrt (a * b): 5: 2); // display the first answer in the format of five digits for the whole number and two digits after the dot

end.