Определить принадлежность точки выбранной области.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

если на 1 кв метр 200 грамм  то 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

расход обычно указывается на кв  метр : )   

квадрат вписан в круг при условии что 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

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.