Система линейный уравнений - Pascal ABC

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

помогите пожалуйста с 2 заданием, нужно решить его в абс паскале, заранее спасибоинформатика23.docx

Решение задачи: «Система линейный уравнений»

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

var
  str:string;
begin
  // Выводим на экран текст
  Write('Введит год рождения студента: ');
  // Читаем с клавиатуры в переменную str
  ReadLn(str);
  // Сравниваем совпало ли введенное значение с нашим числом
  // и выводим на экран совпало или нет
  if str = '1990' then  WriteLn('Год совпал!')
  else Writeln('Год не совпал!');    
end.

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

Объявляется переменная str типа string, которая будет использоваться для хранения введенного года рождения.
Выводится на экран сообщение с просьбой ввести год рождения студента.
С помощью функции ReadLn считывается введенное значение года рождения со стандартного ввода и сохраняется в переменной str.
Выполняется сравнение введенного значения str с числом '1990'.
Если введенное значение совпадает с числом '1990', то выводится на экран сообщение Год совпал!.
Если введенное значение не совпадает с числом '1990', то выводится на экран сообщение Год не совпал!.