Заполни окна так, чтобы этот пример на склеивание мешков был выполнен верно

линейный (следования)

разветвляющийся (развилка)

циклический

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

не ворую

не лгу

слабым