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