Составить программу для вычисления значения y по формуле y= квадратный корень из x заданного с клавиатуры, если число отрицательное , то вывидите сообщение, что значение y не существует

program kvadr;

var x, y: real ;

begin

write('введите значение x');

read(x);

if x > 0

then  begin y: =sqrt(x) ;

end;

write(y)

else write('у не существует')

end.

var x,y: real;

begin

readln(x);

if x< 0 then writeln('oshibka') else begin y: =sqrt(x); writeln('y=',y); end;

end.

Program n1; const maxm = 50;                 maxn = 50; var a: array[1..maxm,1..maxn] of integer;             min,max,i,j,n,m,x,maxi,mini: integer; begin write('введите размеры матрицы (n*m):   '); readln(n,m); writeln('введите матрицу из ',n,' строк и ',m,' столбцов: '); min: =maxint; max: =-maxint-1; for i: =1 to n do    for j: =1 to m do        begin        read(a[i,j]);     if a[i,j]> max then begin max: =a[i,j]; maxi: =i; end;     if a[i,j]< min then begin min: =a[i,j]; mini: =i; end;       end; for j: =1 to m do  begin    x: =a[maxi,j]; a[maxi,j]: =a[mini,j]; a[mini,j]: =x;   end; writeln('матрица после преобразования: '); for i: =1 to n do  begin    for j: =1 to m do      write(a[i,j],' ');     writeln;   end; end. 

Тема вирусы и антивирусы обширная,  можно много найти  информации. еще можно сделать презентацию о том, как делать презентацию. всякие прибамбасы там какие бываю, рассказать)) и желательно сделать самому и вставить фотки с экрана собственного компа, училки любят, когда ученики применяют свои ну, еще интересная тема про значение информационных технологий в наше время. т.е. заголовок может звучать так: "выбирай ит! " ит - информационные технологии. ну, в общем, как-то так) удачи с презентацией! )