bazalev

uses sysutils;
var counts_of_days: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);.
var evg_of_t: array[1..12] of real;
var x, x2: char;
var i, mounth, count_of_m, current: integer;
var t, max_evg: real;
begin
    max_evg:= -100;
    for i:= 1 to 4 do begin
        read(x); read(x); read(x);

bazalev

Program HelloWorld(output);
var a: array [1..99] of integer;
var count, N, i, j, school: integer;
var x: char;
begin
    readln(N);
    for i:=1 to N do begin
        for j:=1 to 2 do begin
            read(x);
            while x <> ' ' do read(x);

bazalev

var max21count,max3,max21,max7,max,R,x,i,checksum, N: longint;
begin
    max3:=0;
    max7:=0;
    max21:=0;
    max:=0;
    readln(N);
    for i:= 1 to N do begin
        readln(x);
        if (x mod 3 = 0) and (x mod 7 <> 0) and (x > max3) then.

bazalev

Program HelloWorld(output);
var max7,max,R,x,checksum, N, i, j: longint;
var a: array[1..1000] of integer;
begin
    max7:=0;
    max:=0;
    N:=0;
    readln(x);
    while x<> 0 do 
    begin

bazalev

Program HelloWorld(output);
var current,i,N,checksum,prev_min,Gmin: integer;
begin
    Gmin:=2001;
    readln(N);
    readln(prev_min);
    for i:= 2 to N do begin
        readln(current);
        if ((current + prev_min) mod 3 = 0) and
           ((current <> 2*prev_min) or (prev_min <> 2*current)) and

bazalev

uses math; {* чтобы использовать функцию min *}
 
const 
    N=8;
    K=4;
var {* используем массивы, начинающиеся с нуля - все циклы должны это учитывать *}
    prev_min: array [0..K-1] of integer;
    i, cur_input, result: integer;
begin
    result:=1000 + 1000;

bazalev

const
    N=10;
var
    a: array [1..N] of integer;
    i, max, k: integer;
begin
    max:=1;
    k:=1;
    for i:=1 to N do begin
        read(a[i]);

bazalev

const
    N=5;
var
    i, j, k: integer;
    a: array [1..n] of integer;
begin
    for i:=1 to N do begin
        readln(a[i]);
    end;
    

bazalev

const
    N=5;
var
    i, j, min: integer;
    var a: array [1..n] of integer;
begin
    for i:=1 to N do begin
        readln(a[i]);
    end;
    

bazalev

#include "stdio.h"


int main() {
    int count, rate, school;
    char *last, *first;
    
    int max = -1;
    int max_count = 0;
    char* max_last;