Составьте программу вычисления первой цифры 3-ех значного числа . Если цифра больше 5 , то умножтье числа на 1 цифру
var
num, firstDidit: integer;
begin
read(num);
firstDidit := num mod 1000 div 100;
if (firstDidit > 5) then
firstDidit := firstDidit * firstDidit;
num := num * firstDidit;
end;
write(num, ' ', firstDidit);
end.