program StartWithFive;
vanumber, firstDigit: integer;
begiwrite('Enter a three-digit number: ')readln(number);
firstDigit := number div 100;
if firstDigit = 5 thewriteln('The number starts with 5'elswriteln('The number does not start with 5')end.
program StartWithFive;
va
number, firstDigit: integer;
begi
write('Enter a three-digit number: ')
readln(number);
firstDigit := number div 100;
if firstDigit = 5 the
writeln('The number starts with 5'
els
writeln('The number does not start with 5')
end.