Дана строка. Если она представляет собой запись целого числа, то вывести 1 - Turbo Pascal

Формулировка задачи:

. Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.

Решение задачи: «Дана строка. Если она представляет собой запись целого числа, то вывести 1»

Листинг программы

uses crt;
var s:string;
    a:longint;
    r:real;
    c:integer;
begin
clrscr;
writeln('Введите строку для определения число ли это и какое:');
readln(s);
val(s,a,c);
if c=0 then write(1)
else
 begin
  val(s,r,c);
  if c=0 then write(2)
  else write(0);
 end;
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с потоками ввода-вывода.
Затем объявляются переменные s, a, r и c типа string, longint, real и integer соответственно. Переменная s будет использоваться для чтения введенной пользователем строки, переменная a будет использоваться для хранения целой части числа, переданного в качестве аргумента функции val, переменная r будет использоваться для хранения десятичной части числа, переданного в качестве аргумента функции val, а переменная c будет использоваться для хранения остатка от деления.
Затем выполняется очистка экрана с помощью функции clrscr.
Выводится сообщение 'Введите строку для определения число ли это и какое:', используя функцию readln.
Считывается введенная пользователем строка и сохраняется в переменной s.
Вызывается функция val с аргументами s, a и c. Эта функция пытается преобразовать строку в число и сохранить его в переменной a. Если преобразование прошло успешно, то переменная c устанавливается равной 0, что означает успешное преобразование.
Затем проверяется значение переменной c. Если оно равно 0, то выводится число 1, что означает, что введенная строка представляет собой число.
Если значение переменной c не равно 0, то вызывается функция val с аргументами s, r и c. Эта функция пытается преобразовать строку в число и сохранить его в переменной r. Если преобразование прошло успешно, то переменная c устанавливается равной 0, что означает успешное преобразование.
После этого проверяется значение переменной c. Если оно равно 0, то выводится число 2, что означает, что введенная строка не является числом.
Если значение переменной c не равно 0, то выводится число 0, что означает, что введенная строка не является числом.
Конец программы.