Зробіть 5 завдання дуже швидко будь ласка потрібно дуже!

паскаль

uses crt; var

  a,b,c,s: real; begin  read(a,b);   c: =sqrt(sqr(a)+sqr(b));   writeln('c=',c);   s: =(a*b)/2;   writeln('s=',s); end.

великобритания - лондон

греция - афины

италия - рим

нидерланды -

франция - париж

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

700 иероглифов было в древнем письме