1. Дано трехзначное число

Решал на паскале. Первая: var i: integer; s: string; a: array[1… 3] of integer; t.q,z: boolean; beginreadln (i); q: =false; t: =false; a[1]: =i mod 10; a[2]: =i div 10 mod 10; a[3]: =i div 10 div 10; for i: =1 to 3 dobeginif a[i]=4 thenq: =true; if (a[i]=7) and (q=true) then t: =true; if a[i]=7 then z: =true; end; if t=true then writeln ('Vhodyat oba) else if (q=true) and (z=false) then writeln ('Vhodit 4') else if (q=false) and (z=true) then writeln ('Vhodut 7'); readln; end. Вторая: var a,b,c,min: integer; beginmin: =32000; readln (a,b,c); if a0 thenbeginx: =(-b+sqrt (d) /2*a; y: =(-b-sqrt (d) /2*a; if y>x thenwriteln ('Two roots: ',x: 0:0,',y: 0:0) else writeln ('Two roots: ',y: 0:0,',x: 0:0); end; if d<0 then writeln ('No roots'); readln; end.: