Паскаль. написать программу проверки знаний таблицы умножения. программа должна вывести 10 примеров и выставить оценку: за 10 правильных ответов - отлично, за 9 и 8 - хорошо, за 7 и 6 - удовлетворительно, за 5 и менее - плохо. после примера ввести ответ, если введен неправильный ответ, то вывести сообщение об ошибке. пример: 5*4=20 7*8=48 неверно! 7*8=56 3*2= правильных ответов: 9. оценка: хорошо.

Program adsad;   uses crt;   var    y: real;     x: real;     p: string;     begin      textcolor(lightgreen);       writeln('введите значение x: ');       readln(x);       writeln('введите y под корнем: ');       readln(y);       y: = sqrt(x);       writeln('ответ ', y);       if x< =0 then      if y< =0 then      y: =0; //обнулил счетчик      y: =x*x;       writeln('ответ ', y);       end.

Var a,b,c: integer; begin writeln('введите три числа'); readln(a,b,c); if (a< =b)and(b< =c) then write(a,' ',b,' ',c) else if (a< =c)and(c< =b) then write(a,' ',c,' ',b) else if (b< =a)and(a< =c) then write(b,' ',a,' ',c) else if (b< =c)and(c< =a) then write(b,' ',c,' ',a) else if (c< =a)and(a< =b) then write(c,' ',a,' ',b) else if (c< =b)and(b< =a) then write(c,' ',b,' ',a) end. var a,b,c,d: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); d: =b*b-4*a*c; if d> =0 then     begin     writeln('x = '-sqrt(d))/(2*a));     writeln('x = '+sqrt(d))/(2*a));     end else writeln('действительных корней нет') end.