СРОЧНО, НЕТ ВРЕМЕНИ!

Дана программа на языке Pascal:

Program num1;
var a, b, c, m : integer;
Begin
writeln('Введите три числа');
readln(a, b, c);
m := a;
if b if c writeln(m);
End.

Напишите общим языком, что находит эта программа (что хранит в себе переменная m).