Помогите пожалуйстаЗадачи на ветвления и выбор.Даны круг и квадрат.Составьте программу,определяющую по ведённым вами значениям длин стороны квадрата и радиус круга,одно из утверждений "круг вписан в квадрат или квадрат вписан в круг"

Почему вы написали две задачи?

uses crt;varn,a,b,c,m:integer;beginclrscr;write('Vvesti 3-x znachnoe chislo ');readln(n);c:=n mod 10;a:=n div 100;n:=n div 10;b:=n mod 10;writeln('cifri chisla ',a:3,b:3,c:3);write('vvesti cifru ');readln(m);if (m=a) or (m=b) or (m=c) then writeln('YES') else writeln('NO');writeln('end programm ');readkey;end.Program pr1;uses crt;vara,r:real;beginclrscr;write('Vvesti storonu kvadrata A ');readln(a);write('Vvesti radius kruga R ');readln(r);if 2*r =a then writeln('krug vpisan v kvadrat') elseif abs(a*sqrt(2) - 2*r)<=0.01 then writeln('kvadrat vpisan v krug')else writeln(' ne vpisivajutsya');writeln('end programm ');readkey;end.