Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
(Формат файла должен быть *.py но на этом сайте он его не подгружает, по этому формат изменен на *.py.txt просто надо будет убрать '.txt')
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.
Правой кнопкой на Мой компьютер => Свойства => Оборудование => Диспетчер устройств =>
<span>=> Дисковые устройства => выбираешь диск который там есть двойным щелчком, и жмешь вкладки. Напр. сведения и выбираешь то что тебе надо. Если не то, попробуй задать вопрос по другому. </span>
<span>Решение данной задачи прикреплено ниже.
zd15 - решение первой задачи.
zd16 - решение второй задачи.</span>