Создание конуса цилиндра и сфера выбери соответствующий результат выполни действие над обьективом ​

ответ: На во ответил правильно, не понял тебе перевод нужен

Объяснение:не знаю ли тебе это:

program test;

uses crt;

var i,right,mark,v: longint;

   answer,true1,true2,true3,true4,true5: char;

begin

 right:=0;   // Счётчик правильных ответов

 v:=5;       // Количество во Правильный ответ на во Во Вариант ответа');

        writeln('b) вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true1 then inc(right);

     end;

     if i=2 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true2 then inc(right);

     end;

     if i=3 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true3 then inc(right);

     end;

     if i=4 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true4 then inc(right);

     end;

     if i=5 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true5 then inc(right);

     end;

 end;

 if right>1 then mark:=right

 else mark:=2; // Оценка, если во больше 5, то там другая формула.

 writeln('Ваша оценка ',mark,'. Вы дали ',right,' правильных ответов');