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