Напиши небольшое эссе на тему «Об авторском праве в Казахстане».​

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата 

на qbasic

? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"

input a; b

c=a*2   диаметр

g=sqr(a*a+a*a) диагональ  

if c> g then 1 else 2

1 ? "квадрат вписан в круг"

goto 3

2 ? "квадрат не вписан в круг"

3 end

program sss;

uses crt;

var s: string;

            i,k,m: integer;

begin

clrscr;

readln(s);

for i: =1 to length(s)-2 do

begin

if ( (s[i] = 'т') or (s[i] = 'т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'о') ) and ( (s[i+2] = 'м') or (s[i+2] = 'м')  then

begin

                k: =1;

                break;

end;

end;

if k = 1 then writeln('да')

else writeln('нет');

readkey;

end.