СРОЧНО!!!!!!!!!!!!!!!!!!!!

1)

program raf105;

var a,b,c:real;

begin

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

read(a,b);

if b<>0

 then  

 begin

   c:=a/b;

   writeln(a,'/',b,'= ',c);

 end

 else writeln('На ноль делить нальзя!');

end.

2)

program raf105;

var mass,rub:integer;

begin

write('Введите желаемый вес: ');

readln(mass);

write('Введите вашу сумму денег: ');

readln(rub);

if rub>=mass*78

 then writeln('Покупка состоится')

 else writeln('Покупка не состоится');

end.

Язык программирования PascalABC