Информатика

[Максонек]

Данные действительные числа Р, К, С Найти наименьшее из этих чисел и его квадрат.В паскале задали сделать но вообще не знаю как

[digitalis]

var
A,C,K,MinNumb : double ;
begin
   MinNumb := A ;
   if C < MinNumb then MinNumb := C ;
   if K < MinNumb then MinNumb := K ;
   Writeln (   MinNumb, MinNumb  * MinNumb )
end .

Пытался придумать задачку проще, чем эта - ничего не получилось, аж бошка заболела.