Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje
Могу в предложить в данном случае использовать goto и метки. Ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) То на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. Т.е.
if a<0 tnen
begin
Writeln('Вы ввели неверные данные');
goto 1
else
goto 2;
Метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно
Правильный ответ - №1.
Тем, что описано во втором ответе, занимаются антивирусы-сканеры.
program znanija;
uses graphabc;
var
x:integer;
begin
SetPenWidth(3);
readln(x);
if x mod 2 = 0 then
begin
SetPenColor(clGreen);
rectangle(130,120,300,300);
end
else
begin
SetPenColor(clRed);
circle(185,200,100);
end;
end.