Дана непустая последовательность целых чисел, оканчивающаяся числом –1.
Определить, есть ли в последовательности хотя бы одно число, кратное семи? В случае положительного ответа определить порядковый номер первого
из них НАПИСАТЬ НА С++

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

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

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

end.

не ворую

не лгу

слабым 

зеркало, весло, начало, одеяло, масло, крыло, дупло

как я понял надо составить блок-схему

задаете числа, и задаете периметр и площадь равный 0

условие что все больше 0

если да то дальше если нет то конец

после этого сразу проверка на ваши больше и меньше 0 и тому прочее

если не выполняется какое-то условие то конец,если все вып. то опять условие 

с^2=a^2+b^2

если да то выполнить действие s=a*b   вывод s   end

если нет то p=a+b+c   вывод p   end