Написать программу на языке Паскаль

Задача 1:

var a,b: real;

var c: char;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите нужную операцию (+,-,*,/): ');

readln(c);

if (c='+') then writeln('Результат: ',a+b)

else if (c='-') then writeln('Результат: ',a-b)

else if (c='*') then writeln('Результат: ',a*b)

else if (c='/') then writeln('Результат: ',a/b);

end.

Задача 2:

var a: integer;

begin

write('Введите количество кроликов: ');

readln(a);

write('Количество морковок: ',3*100+a*2);

end.

Задача 3:

var a: integer;

begin

write('Введите число: ');

readln(a);

write('Последняя цифра числа: ',a mod 10);

end.

Вот пример записи в типизированный файл
uses
  crt;

type
  car = record
    mark: string[64];
    year: integer;
    colour: string[32];
    number: string[12];
  end;

var
  text_out: file of car;
  cars: array[1..1] of car;
  count,limit: integer;
  temp:car;
 
begin
  writeln('vvod');
  assign(text_out, 'input.txt');
  rewrite(text_out);
 
  cars[1].mark := 'Lada Vesta bbb';
  cars[1].year := 2000;
  cars[1].colour := 'красный';
  cars[1].number := 'а111ааrus000';
  write(text_out, cars[1]);
  writeln('');
  readln(limit);
  for count:=1 to limit do begin
  writeln('Введите марку автомобиля');
  readln(temp.mark);
  writeln('Введите год выпуска автомобиля');
  readln(temp.year);
  writeln('Введите цвет автомобиля');
  readln(temp.colour);
  writeln('Введите номер автомобиля');
  readln(temp.number);
  write(text_out, temp);
  end;
  close(text_out);
end.

И пример поиска в том же типизированном файле

uses
  crt;

type
  car = record
    mark: string[64];
    year: integer;
    colour: string[32];
    number: string[12];
  end;

var
  text_in: file of car;
  temp: car;
  count: integer;
  mask: string;

begin
  writeln('Введите искомый цвет');
  readln(mask);
  assign(text_in, 'input.txt');
  reset(text_in);
  while not eof(text_in) do
  begin
    read(text_in, temp);
    if temp.colour = mask then
    begin
      write('Машина заданного цвета ');
      writeln(temp.mark);
      write(temp.year);
      writeln(' года выпуска');
      write('Государственный знак номер ');
      writeln(temp.number);
      writeln();
    end;
  end;
end.

Можно и обычным текстовым файлом, но проще типизированным.