Помогите пожалуйста с...

Помогите пожалуйста с информатикой. 7 класс. Turbo PascalЗадача №1: Составить программу, которая преобразует введённое с клавиатуры дробное число в денежный формат (12.5 в 12 рублей 50 копеек).

 

1)
var
  a: real;
  x, y: integer;
 
begin
  writeln('Введите дробное число');
  readln(a);
  x:= trunc(a);
  y:= frac(a);
  writeln(x, ' рублей ', y * 100, ' копеек');
  readln;
end.
2)
var
  n: 100..999;
  a, b, c: 0..9;  //a - сотни, b - десятки, с - единицы
 
begin
  writeln('Введите трехзначное число');
  readln(n);
  a:= n div 100;
  b:= (n mod 100) div 10;
  c:= n mod 10;
  writeln('Сумма цифр:  ', a + b + c);
  readln;
end.
3)
var
  a, b, c: real;
 
begin
  writeln('Введите числа а и b');
  readln(a, b);
  if a > b then
  begin
    c:= a;
    writeln(c, ' - большее число');
  end;
  if b > a then
  begin
    c:= b;
    writeln(c, ' - большее число');
  end;
  if b = a then writeln('Числа равны');
  readln;
end.