Решить это информатика тема компьюторная графика​

Var a,b,c: integer; x,y,z: string; begin x: ='рубль'; y: ='рубля'; z: ='рублей'; writeln('сколько стоит метр ткани? (в рублях)'); readln(a); writeln('сколько вы хотите купить ткани? (в метрах квадратных)'); readln(b); c: =a*b; if c=1 then begin writeln('это будет стоить',' ',c,' ',x); end; if (2< =c) and (c< =4) then begin writeln('это будет стоить',' ',c,' ',y); end; if (5 < = c) and(c < = 1000000) then begin writeln('это будет стоить',' ',c,' ',z); end; end. в зависимости от результата программа будет выводить разное окончание.1 рубль; 3 рубля; 100 рублей.

Program z1;   var x,y,z,max,min,u: integer; begin  write('введите x   =   ');   readln(x);   write('введите y =   ');   readln(y);   write('введите z =   ');   readln(z);   if (x> y) then if (x> z) then max: =x                          else max: =z            else if (y> z) then max: =y                          else max: =z;   if (x< y) then if (x< z) then min: =x                          else min: =z            else if (y< z) then min: =y                          else min: =z;   u: =max+min;   writeln('u = ',u) end.