помогите с задачами по информатике решить 2 задачи и записать ...

Moderator

Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)

 

Program zadanie1;

var

a,b,c: real;

begin

wtiteln('Vvedite A');

readln(a);

writeln('Vvrdite B');

readln(b);

writeln('Vvedite C');

readln(c);

if ((a>b)and(b>c))or((a