QBasic — диалект языка программирования Бейсик (BASIC), разработанный компанией Microsoft, а также среда разработки, позволяющая писать, запускать и отлаживать программы на этом языке.
QBasic удобен для выполнения несложных вычислений и для прямой работы с портами. Наряду с Pascal, язык довольно популярен для обучения программированию, и не используется нигде.
Turbo Basic — компилятор языка Бейсик, а также его диалект, первоначально созданный Робертом «Бобом» Зейлом и впоследствии выкупленный у него компанией Borland
begin
repeat
writeln('Введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу');
readln(x);
if x=1 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a+b;
writeln('ответ: ',c);
end;
if x=2 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a-b;
writeln('ответ: ',c);
end;
if x=3 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a*b;
writeln('ответ: ',c);
end;
if x=4 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a/b;
writeln('ответ: ',c);
end;
if x=0 then writeln('Пока!');
until x=0;
end.