Var a, b : integer;
Begin
Write('Введите число а: ');
Readln(a);
Write('Введите число b: ');
Readln(b);
If a < b then begin
A := 0;
B := a * b;
Write('a = ', a, 'b = ', b);
End
Else
Begin
B := 0;
A := a * b;
Write('a = ', a, 'b = ', b);
End;
End.
Смотря где рисовала! Попробуй перезагрузить, у меня было такое в Paint, не открывается только твой рисунок? или все файлы-картинки? Если изображение не открывается , должна высветится табличка с какой либо надписью почему она не открывается! Есть очень много случаев , например: этот файл не потянет на твой компьютер, у тебя если тупой виндоус , или наоборот слишком отличный! Или файл ты неправильно сохранила, что тот просто на просто НЕ сохранился! Попробуй перезагрузить файл, возможно получиться, или почисти компьютер от файлов не нужных, возможно он перегружен слишком,
Program zhn;
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.