program das;
var a,b,cha : real;
begin
writeln('Введите числитель и знаменатель:');
readln(a,b);
if b > 5 then
cha := a / b;
writeln('Частное равно ', cha);
end;
end.
program das;
var a,b,cha : real;
begin
writeln('Введите числитель и знаменатель:');
readln(a,b);
if b > 5 then
begin
cha := a / b;
writeln('Частное равно ', cha);
end;
end.