[torauma]

Вот подправил:

Код:

Program nastya;
uses crt;
var A,B: integer;
C:real;
begin
write('Число А: '); readln(A);
write('Число B: '); readln(B);
if B<>0 then
   begin
   C:=A/B;
   writeln (C);
   end
else
   begin
   writeln ('Ошибка');
   end;
readln; //лучше использовать readkey
end.

Обратите внимание, что readln останавливает программу до тех пор, пока не будет нажата клавиша "ввод", а readkey отреагирует на нажатие любой клавиши.

Вариант с проверкой в цикле:

Код:

Program nastya;
uses crt;
var A,B: integer;
C:real;
begin
write('Число А: '); readln(A);
write('Число B: '); readln(B);
while B = 0 do
begin
    writeln ('Ошибка');
    write('Число B: '); readln(B);
end;
C:=A/B;
writeln (C);
readkey;
end.

Тепрь на C++:
if:

Код:

#include <iostream>

using namespace std;

int main()
{
	int A,B;
	float C;
	cout << "Число A: ";
	cin >> A;
	cout << "Число B: ";
	cin >> B;
	if (B != 0)
	{
		C = A / B;
		cout << C << endl;
	}
	else
	{
		cout << "Ошибка" << endl;
	}
	return 0;
}

while:

Код:

#include <iostream>

using namespace std;

int main()
{
	int A,B;
	float C;
	cout << "Число A: ";
	cin >> A;
	cout << "Число B: ";
	cin >> B;
	while (B == 0)
	{
		cout << "Ошибка" << endl;
		cout << "Число B: ";
	        cin >> B;
	}
	C = A / B;
	cout << C << endl;
	return 0;
}