Запишіть виконання наведеного фрагмента програми для табличної величини, значеннями елементів якої є числа: 0,5; -3; 2; -1,6.
sum: =0;
for i: = 1 to 4 do sum: =sum + a[i] * a[i];

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)

двое детей поплывут вместе. один останется, другой поплывет обратно. останется поплывет мать. обратно поплывет ребенок. дети поплывут обратно. один останется другой поплывет за отцом. ребенок останется поплывет отец. затем опять пеплывет ребенок за братом и вместе они вернутся. 

var a: integer;

begin

    read(a);

    a: =a*a;

    a: = a*a;

    writeln(a);

end.