Якого значення набуде змінна s після виконання даної програми?

а.3
б.2
в.5
г.4

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

в этой книге ровно 99 неверных утверждений, так как одно утверждеие-то верное.

в чем отличие пользователя от программиста если кто-то работает с компьютером, то это не значит, что он программирует или умеет программировать. пользователь потому и называется пользователем, что он просто использует возможности компьютеров и программ, и чаще всего далек от способов их создания. же программиста создавать программы для тех, кому они нужны, т. е. для пользователей. причем системные программисты в основном программы для компьютерами, а программисты прикладные , прежде всего, пишут программы полезные массовому пользователю. в принципе, всех, кто работает с компьютером можно разделить на три категории: 1. программисты, программы для облегчения труда других пользователей. 2. программирующие пользователи, которые программы для решения своих , облегчения собственного труда. 3. непрограммирующие пользователи, желающие решать свои , используя уже существующие программы, не занимаясь программированием.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.