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

var  a, b: real;begin  readln(a, b);  if a = b then writeln('Числа равны')  else  if a > b then begin    a := sqr(a);b := b / 8;  end  else begin    b := sqr(b);a := a / 8;  end;  writeln('a = ', a, ' b=', b)end.

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016begin  var a,b:real;  Write('Введите a и b: '); Read(a,b);  if a>b then (a,b):=(b,a);  Println(a/8,b*b)end.Тестовое решение:Введите a и b: 34 12.71.5875 1156